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2.0 


ABSTRACT SEQ 0005 


This diagnostic program is capable of testing the DR11-W 
NPR General Interface in DR11-W or DR11-B mode. 


It has the following features: 
1. APT11/XXDP compatible 
2. Multiple board testing using table created by user 


3. Burst Data Late Calibration 
4. Independent ‘LOGIC WRAP-AROUND’ and ‘CABLE WRAP-AROUND’ testing 


REQUIREMENTS 


2.1 EQUIPMENT 


PDP11 standard computer 

1/0 type terminal 

1-16 DR11-W module(s) 

Loop back cable (Needed to fully check the moduie with this 
diagnostic) 


wn — 
ees 


2.2 HARDWARE SWITCH SETTINGS 


The address selection switch, E120, is set up as below: 


Address bits: 2. WH 10 9 8 7 6 5 4 3 


Example: Device Address 172410, switches 1, 3, 5 & 10 should be 
OFF, and all others should be ON. 


The E105 Switchpack: This switchpack must be in the following 
positions to run this diagnostic: 


OF F 
ON 
OFF 
OF F 
ON for -W mode, OFF for -B mode 


Mwn— 
teee#e 


Single switch near the E105 switchpack: 


2 cycle mode - switch handle towards pack £105 
N cycle mode = switch handle towards E94 


The vector selection switch, £15, is set up as below: 


Vector bits: ne ree SS FS 


Ss Example: Vector Address 300, switches 6 & 7 should be 
OFF, and all others should be ON. 








2.3 S$ fORAGE SEQ 0006 


The progran uses approx. 52200 words of memory 
3.0 TESTING MODE ° 


3.1 DEFINITION 


The DR11-W giomeet tc accomplishes device register bit tests, 
internal ‘LOGIC’ wrap-around tests, and with the BCO6-R wrap- 
around cable in J1 and J2, provides external ‘‘CABLE’’ wrap-around 
tests. In order to FULLY check the module, the diagnostic MUST 
be run with and without the wraparound cable in nee restarting 
#3 ag $00 oy time, or editing to change the cable mode 

ee Sect. 7.1. 


There are only TWO legal modes of operation of this diagnostic: 


1. DR11 with no cable(s) in user slots. 
2. OR11 with Wrap-Around cable from J1 to J2. 


This diagnostic is NOT meant to be run in the following modes: 


1. DR11 connected to another DR11. 
2. OR11 connected to a user device. 


3.2 IMPLEMENTATION 


Device register bit tests and internal LOGIC wrap-around tests 
are executed UNCONDITIONALLY. Cable wrap-around tests are 
executed ONLY if the BCO6-R cable is in place between the J1 
and J2 connectors on the DR11-W under test. The presence of 
this cable is ‘’SIZED'' for automatically for each board when 
the diagnostic is started at address 200. The user *MUST* 
verify that the ‘SIZING’ occurred correctly by observing the 
output of the program when oe at 200. (refer to section 
5.1 for example) If this summary is not needed, raise bit 12 
of the switch register before program execution. 


In manual mode (starting address = 204), the user. can force 
uniform cose ae parameters for ALL modules through use of the 
edit function (refer to section 7.1.1). ° 


4.0 LOAD AND START PROCEDURE 


- Load program into ee 
Load etert ing address 200, 204 or 210. (See Sects. 7.1, 7.2, 7.3 
respectively 


- Press start. 
WITCH REGISTER 


5.1 Options 
SWITCH OCTAL FUNCTION 


SW15=1 100000 HALT ON ERROR 


ur N= 
. 


5.0 





OTR ae AR a a es 


$W14=1 
Swi3=1 
Swi2=1 
Swi1=1 
Swi0=1 
SWO9=1 
SwO08=1 
Sw07=1 


040000 


020000 


010000 


004000 
002000 


001000 


000400 


000200 


his will cause the processor to halt at the 
next error. 


LOOP ON TEST 


This will cause the processor to loop on the 
test it is then executing. 


INHIBIT ERROR TYPEOUTS 
This will cause error typeouts to be inhibited. 
DO NOT PRINT BOARD CONFIGURATION 


This will cause the list of all boards and 
their setup data that the autosize routine 
found to not print. 


NOT USED 
BELL ON ERROR 


This function causes the terminal bell to sound 
when an error occurs. this can be used in con- 
Be =, with LOOP-ON-TEST and INHIBIT-ERROR- 
YPEOUTS to see if a loose connection may be 
causing the error. 


LOOP ON ERROR 


This function will cause looping on error. It 
can be used in conjunction with INHIBI T-ERROR- 
TYPEOUTS when using a scope to find a faulty 
component. 

LOOP ON TEST IN SWR<6:0> 


This function causes the CPU to jump to the test 


in bits <6:0> and execute that test unconditionaly. 


Change the switch register to exit. to create a 


tighter loop on that particular test, set LOOP-ON-TEST 


(40000) in the swr once the test is executing. 
INHIBIT MULTIPLE ERROR TYPEOUTS 


On error calls in loops where multiple errors 


are possible, this function inhibits any additional 


data that may print in that loop. Example 
MULTIPLE TYPEOUTS ENABLED: 


CERROR MESSAGE) 

CDATA HEADER) 

1000008 000000 0000000 000000 
1000008 000000 0000000 000008 
1000008 000000 0000000 000008 
1000000 000000 0000000 000008 
1000000 0000000 0000000 000001 


>> >>> >NOTE<<<<<< 
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SEQ 0007 
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5.2 


5.3 


5.4 


— 
A maximum of 17 (octal) data Lines will print. 
if there are more, a message will print 
as follows: 


THERE ARE STILL MORE ERRORS, BUT WILL WOT BE PRINTED. 
ERRORS WILL STILL BE COUNTED AND PRINTED AT THE EOP. 


MULTIPLE TYPEOUTS DISABLED: 


CERROR MESSAGE 4 
CDATA HEADER) 
100000 000000 000000 000000 


(no more data will print) the total number 
of errors will still be totaled and printed 
at the EOP or EOD. 

SOFTWARE SWITCH REGISTER 


If the hardware switch register does not exist, or 
if one does and it contains ‘-1' (177777) then the 
software switch register (location 176) is used, 
which allows the user the same switch options as the 
hardware switch register. 


LOADING THE SOFTWARE SWITCH REGISTER 


This errs supports the dynamic loading of the software 
switch register (location 176) from the ITY. This is accom- 
plished as follows: 


1. Type CONTROL G <*G> repeatedly, as resets and inits done 
in the diagnostic nay clear the character before the — 
character 1s recognized. once input is recognized, this 
2 age the TTY to enter data into location 1/6 at the end 
of a test. 


2. The machine will type: SWR=XXXXXX NEW= (XXXXXX is the octal 
contents of the software switch register) 


3. After the 'NEW=" the operator can do one of the following: 


A. Type a number to be loaded into location 176 followed by a <CR> 
(only numbers between 0-7 will be accepted and only 6 numbers 
will be allowed). ; ; d 
If a <CR> is the first entry the software switch register will 
not be changed. 


B. If a CONTROL U <“U> is depressed, the program will go back 
to step 2. 


PROGRAM AND/OR OPERATOR ACTION 


Loading and eyersing st 200 with all switches down 
is normal logic testing. If an error is detected, 
there will be a printout. When an error is detected 
and it is noceosery to scope on it, place 100000 
(bit 15) in the switch register to halt on error. 


After halting at the error to be looped on, enter 60000, 
loop-on-error and inhibit printouts. If there is more 
than one error called in a test, and you wish to loop on 





SEG 0008 


q 7 
other than the ist error, you MUST correct the condition 
causing the previous error(s) before yey can loop on that 
error. ang the previous errors will produce unpredic- 
table results for any subsequent errors in the test. 

ERROR REPORTING 


Each test will call an error containing the test number, error PC 
and data that is significant to the problem that caused the error. 


In the case of multiple board testing, the failing module is identified 
by the device register address, and the END-OF-DEVICE-TEST message 
following all errors for that particular module. 

OPERATING MODES 


7.1 MANUAL MODE (STARTING ADDRESS = 204) 
Defined as NON-AUTOMATIC use of the diagnostic. 


This mode is intended for use in manufacturing when apt is 
not available. 


In manual mode, all DR11-W hardware modules *MUST*BE*CONF IGURED* 
*AS*FOLLOWS*: 


> W/B, PRIORITY LEVEL, 2/N CYCLE and CABLE states set IDENTICAL 
*IN®ALL*MODULES®*. 


ALL device addresses MUST be set in a series spaced 10 locations 
apart, starting with the address inputed to the prompt ‘STARTING 
DEVICE ADDRESS XXXXXX :". (all modules MUST be addressed 

within the legal address range of 171000 to 177000) 


ALL vector addresses MUST be set in a series spaced 10 locations 
apart. (all modules MUST be vectored within the legal vector 
range of 300 to 770) 


Vv 


v 


> The module with the lowest device address must also have the 
lowest vector address, the module with the next to the lowest 
device address must also have the next to the lowest vector 
address, etc. for example: 


BOARD # DEVICE ADDRESS VECTOR ADDRESS 
0 172410 300 
1 172420 310 
2 172430 320 
3 172440 330 ETC. 


Only under MANUAL mode does the diagnostic offer ‘BURST. 
DATA LATE’ calibration. After loading program, depositing 
SA 204, and pressing START, the program types the following: 
MULTIPLE BOARD DIALOGUE 
ENTER COMMAND (CEJDIT, CLIIST, CBJURST CALIBRATION, CRJUN): 


The program will allow only 1 character input, automatically 
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pring ing a <CRLF> when the character is inputed 


7.1.2 


when CE) is entered, the program enters the edit function 


*NOTE*: To exit this routine at ony response and return 
to the MBD prompt, enter CONTROL ‘C" (*C). This does 
nothing but exit the routine, and does not change any 
values present or changed. fo return to the previous 
prompt, type <ESC>. 


‘EDIT’ responds first by printing: 
# OF BOARDS UNDER TEST X: 


Program accepts a maximum of 2 decimal characters. 
An appropriate ercor message is fees if the number 
inputed is out of range, or an illegal character was 
inputed. enter <CR> if present value is OK. Next: 


STARTING DEVICE ADDRESS XXXXXX : 


The user should respond with the lowest device address 
in the series. Program accepts a maximum of 6 octal 
digits between 171000 and 177000. An appropriate error 
message is printed if the number inputed is out of 
range, or an illegal character was inputed. Enter <CR> 
if present value is OK. next: 


STARTING VECTOR ADDRESS XXX : 


The user should respond with the lowest vector address 
in the series. progres accepts a maximum of 3 octal 
digits between 300 and 777. An appropriate error 
message is printed if the number inputed is out of 
range, or an illegal character was inputed. enter <CR> 
if present value 1s OK. next: 


DR1i1-W OR B (W=0) CURRENT STATE = X : 


Program accepts either a 0 or 1, repeating the prompt 
if any other character is inputed. Enter <CR> if 
present value is OK. next: 


DEVICE PRIORITY PRESENT LEVEL = X : 


Program accepts 1 character between 0 and 7, repeatin 
the prompt if another character is inputed. Enter <CR> 
if present value is OK. next: 


2 OR N CYCLE BURST (2 CY=0) PRESENT STATE = X : 


Program accepts a 0 or 1, repeating the prompt if any 
other character is inputed. Enter <CR> if present 
value is OK. next: 


DO CABLE TESTS (NO=0) PRESENT STATE = X : 


Program accepts a 0 or 1, repeating the prompt if any 
other character is inputed. Enter <CR> if present 

value is OK. Then the command prompt is reprinted. | 
When (LJ is entered, the program enters the List function 


SEQ 0010 





7.1.3 


7.1.4 


The diagnostic then prints the following: 


# OF START 2-N 
BOARDS REGADR VECADR W-B P-LEV CYCLE 


XX = AAXAAXXK XXX # Xx x 


As previously mentioned, all boards must be proces 10 
address locations apart starting with the ‘REGADR' 
value above, and vectors spaced 10 address locations 
apart starting with the ‘VECADR’ value above. The 
expected W-B, PRIORITY LEVEL, 2-N CYCLE and CABLE test 
states will be the same for all modules. 

when (8) is entered, the program enters the BURST DATA 
LATE CALIBRATION eoutine, and the following is typed: 


BURST DATA LATE CALIBRATION IN PROGRESS.. 
ATTACH SCOPE PROBE... 

TO CALIBRATE NEXT BOARD, TYPE ANY CHARACTER 
DEVICE # 0 UNDER CALIBRATION 


This routine will not execute if you have not used 
edit to deposit a legal starting address and vector 
address, or the a has already been started at 
00. The multiple board dialogue (MBD) prompt 
will be returned if this is the case. As stated in 
the DR11 engineering specification, the ‘BURST DLT’ 
multivibrator time out must be calibrated so as to be 
compatible with the user defined transfer rate in 
burst mode operation. The progres software routine 
sets the cycle bit in the CSR of the DR11, a short 
delay is executed, and then the cycle bit is cleared. 
The diagnostic then tests for any character waiting, 
indicat ng the user wishes to go on to the next board. 
If none, it re-executes the setting and clearing of 
the cycle bit. If a character was inputed, it checks 
for the next board, and if any, sets up the addresses 
for that module, then prints the following: 


DEVICE # X UNDER CALIBRATION 


*x" being the device number. It then reaccomplishes 
the setting and clearing of the cycle bit for that 
device. If no further modules are found, the message: 


BURST CALIBRATION COMPLETE 


is issued, and the MBD prompt is then returned for 

another command. To accomplish the burst data late 

calibration, attach a scope probe to E83-7 on the 

DRi1-W (refer to print set M8716-0-1). A positive 

ulse will be observed. The pulse should be set 
tween 3-30 us. by adjusting pot. R80. 


C 
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When CR) is entered, the prepares begins diagnostic _ 
test execution. This will be blocked if legal starting 
device addresses and vector addresses have not been 

set up. If they are, the register and vector tables 
are filled, and normal start is executed. 


ABLE 
ESTS 
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a 1 
7.2 AUTO=SIZE MODE (STARTING ADDRESS = 200) 


This mode is the normal field service mode. It supports 
standalone ration as well as script operation under ACT11 
or XXDP (chain). 


The DR11 diagnostic has the following run characteristics when 
operating in auto mode: 


SEQ 0012 


a. The program will test the boards recognized by the autosize 
routine. The autosize routine will look at addresses 
between 172414 and 172604 in steps of 10 (20 octal loca- 
tions). It will ree determine if the location it 
found to exist is a DR11 Y forcing an interrupt. IF THE 
BOARD FAILS TO INTERRUPT, YOU MUST USE MANUAL E TO FORCE 
TEST EXECUTION OF THAT MODULE. The purpose of this initial 
test is to eliminate testing a module that is not a DR11, 
and determine the interrupt priority and vector of that 
module. The only legal interrupt vectors the DR11 can be 
set up for are as follows: 40, 50-174, and 254-774, all in 
steps of 4. Each board can have a vector anywhere in the 
stated ranges with no restrictions, allowing complete 
flexibility in the test sequence. 


In the case of multiple DR11-W's on the same CPU, each 
DRil-W MUST have its own unique DEVICE/VECTOR addresses. 
There are no constraints that the boards must start with 
the first device address 172410, or that multiple boards 
are assigned consecutive device addresses. When gporat ing 
in auto-size mode, the user should verify the SIZED" 
configuration by knowing how the boards are set up and 
comparing with the autosize output when starting at 200. 


Auto-sizing will determine the Interrupt priority, Inter- 
rupt vector, W/B, 2/N CYCLE, and Cable states of each 


board, independent of the states of other boards. : 
b. The following will NOT be offered to the user in autosize 


1. BURST DATA LATE CALIBRATION 
2. MULTIPLE BOARD DIALOGUE 
The diagnostic will print the following: 


DIAGNOSTIC HAS DETERMINED THE FOLLOWING ABOUT THE 
DR11-W(S) IT HAS FOUND. USER *MUST* DETERMINE ACCURACY 


BOARD# REGADR VECADR wW/B P-LEV 2-N CY CABLE 
x XXX KH x x x x 


Data will continue to print until data for all modules 
has been printed. 


(*X) INHIBITS EOP'S, (*Y) FOR ERROR SUMMARY 
UNIBUS HANG? RESTART AT ADDRESS XXXXXX 


CZDRLBO DR11 GEN NPR INTFC LOGIC TEST 


The CONTROL K (*X) feature bypasses the sections that print the 
END-OF -PASS and EWD-OF-DEVICE messages. This is to improve the 
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waiting flag at Bw hog for this bit. When the character 
is recognized, if more —_ one module, an E0D 
eopetep will a giving. the user a progress peeertt. To dis- 
able pe oR A > as edly enter ( Ry) again until the CPU 
rec zes you 

The CONTROL Y (*¥) y temetion calls for a summary of device(s) 
and pass(es) that had errors. If no errors occured since the 


wn 1 

number of rege executed over any period of time, as well as 

make overs gnt or weekend runs = ess peper. Error syoeeucs SEQ 0013 
are NOT disabled in this mode. When an ig tpt END- 

OF=-PASS (EOP) WILL print ¢ for that nes pees if more than one 

module is being tested oo EVICE “tf 60) as well as END- 

le vill print so you will know which device and pass was 

executi no. when the error occured. In order to get a progress 

Ae a oy it any key reqoeserste since inits and resets done 

during the execution of the diagnostic may clear the character 


beginning of the diagnostic, or since the last error report, 
the following is printed: 


NO ERROR TOTALS TO REPORT 
If there were errors, the following is printed: 


SUMMATION OF ERRORS i BEGINNING OR LAST REPORT 
— ’ er # ERR 


: : x 
x xX X (etc.) 


The information is stored on a stack that will hold = to 150 
(decimal) device-pass error data lines above. If the Limit is 
reached, diagnostic will continue, but further data neat not be 
stored. The data accumulated is not written over, but when (“Y) 

is entered, the following is printed just before the ‘SUMMATION...' 
statement above: 


STACK IS FULL = DATA MAY HAVE BEEN LOST 


When the data is printed, the stack is reinitialized and will 
start storing up to another 150 error data Lines. 


In the event the UNIBUS becomes hung « and you have non-volatile 
memory or battery backup, restart the program at the address 
specified by the 'UNIBUS HUNG...' prompt at the start of the 
diagnostic. The printout will be as follows: 


DEVICE ADDRESS = XXXXXX, TEST NUMBER = XXXXXX, PASS NUMBER = XXXXXX 
CPU will my? = $e continue will cause the program to 
restart as ad started at 2069. 
7.3 RESTARTING P An IK MEMORY (STARTING ADDRESS = 210) 


Whenever the program is halted, all history of previous testing 
is saved. It will remain intact until: 


1, Another program is loaded into memory 
2. The user re-edits the table 


To restart the program, enter SA 210 and start. This start 
preciudes any setup and negates the start message obtained 


8.0 


7.4 


B 2 
wnen starting at 200. Do not start at this location if_the 
diagnostic has not been previously ‘STARTED’ at either 200 


or 204. 
TESTING UNDER APT (AUTOMATED PRODUCT TESTING) 


To set up for multiple boards for testing under APT control, 
the APT system manager should answer the APT queries to the 
following items as indicated below: 


SOFTWARE ENVIRONMENT: 000 - Dump mode 
001 = Script mode (apt monitors 
diagnostic) 


ENVIRONMENT MODE (SENVM): 000 = Let diagnostic auto-size 
soambihe we pad and test 
accordingly 


200 = Diagnostic must use configura- 
tion specified by APT (S$VECTI, 
SVASE, SDEVM, SDDWX) 


VECTOR ADDRESS ($VECT1): 300 

DEVICE ADDPESS ($BASE): 172410 

DEVICE MAP ($DEVM): XXXXXX = Each set bit indicates that 
board is present and should 
be tested. examples: 

BOARD #0 (D E ADR 


EVIC 300) 
BOARD #1 (DEVICE ADR 310) 
DEVIC 320) 
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BOARD #2 ( E ADR 
BIT 15 = BOARD #15 (DEVICE ADR = 172600, VEC ADR = 470) 


DEVICE DESCRIPTOR WORDS: XXXXXX - There is 1 descriptor word 
for each device: 


$DDWO IS FOR DEVICE 0 
$DDW1 1S FOR DEVICE 1, ETC. 


Each descriptor word MUST be 
set up as follows: 


BIT 0 - rAd ag ~ Pins Mode 
BIT 1 = 2/N CYCLE 
(O= 


BIT 5 \ 


MISCELLANEOUS 


POWER FAIL 


SEQ 0014 


9.0 


10.0 


8.2 


ve € 
If a power failure occurs and battery backup maintains 
the program in memory, or a non-volatile memory exists, 
the program will restart printing the following: 


POWER FAILURE - RESTARTING PROGRAM 
The diagnosic will then restart at address 210. 


If CPU is turned off while running, the above procedure 
is followed. If the processor is halted first, then 
turned off, the processor will come back up halted. To 
restart the program, hit CONTINUE, and the remaining 
rocedure is the same as above. 

ND-OF=PASS MESSAGE 


The EOP will print as follows with no errors on that pass: 
END PASS # XXXXXX 


The EOP will print as follows with some errors when testing 1 
device: 


END PASS # XXXXXX TOTAL ERRORS SINCE LAST REPORT XXXXXX 


The EOP will print the same as with no errors on any particular 
eg when testing more than one device and one or more devices 
as failed, since ‘total errors’ is meaningless and will more 

than Likely be incorrect. 


The pass number is capable of going up to 99,999,999 decimal, 
or about 3 months running with EOP disabled and no errors. In 
other words, 32767 is not the Limit as with other diagnostics. 


EXECUTION TIME 


On a PDP11/44: 


In all modes: Approximately 8 passes per second with EOP messages 
disabled and no errors. 
SUBROUTINE ABSTRACTS 


The READ subroutine is used in the EDIT routine to input up to 
6 digits in octal, 2 digits in decimal, or a single non- 
numeric character. R4 is used as the location to hold the 
number in octal, and is cleared for that purpose at the start 
of the subroutine. R3 is to be preloaded with the number of 
digits expected, since a <CRLF> is printed when the Limit is 
reached. Entering a <CRLF> before the Limit is acceptable, as 
it will be interpreted as a non-numeric character and exit. 

In any case the last inputed ASCII character is left in loca- 
tion "ANSWER'’. If a numeric character is inputed, it will 
clear all but the Ist 4 bits in location ‘ANSWER’, papeesns the 
value of the digit inputed, rotate R4 to the left 3 P aces to 
make room for the inputed digit, and add it to R4. Location 


~ 


SEQ 0015 





10.2 


10.3 


10.6 


10.7 


dD 2 
"LRGSTC’ is to be loaded with the largest ASCII number digit 
acceptable for this number, I.E. 7 or 9 (for octal or decimal 
input respectively). ANY character outside ASCII ‘0° or '7/9' 
i as a non-numeric, triggering an automatic <CRLF> 
and exit. 


ERCAPT 


This subroutine saves the unit number, pass number and total 
errors for that device/pass whenever it encountered errors. 
This routine saves data for 150 (decimal) passes. If the stack 
should become full, data starting with the 151st pass contain- 
ing errors is lost. 


PTCAPT 


This subroutine prints the data stored by the ERCAPT subroutine 
and resets the special stack pointer. If no data was stored, a 
message stating no data was stored is printed. If the stack is 
found full, a message announcing this finding is printed, 
warning that data may have been lost. 


FIXTBL 


This subroutine fills the 17 octal locations sy pas at 
"REGADR' and 'VECADR' from the starting values already loaded 
in the first locations in steps of 10 for each table. 


LODBUF 


The INBUF buffer is loaded with an incrementing pattern 
(0,1,2,3,...) beginning at the starting address of INBUF. The 
number of words loaded is determined by the contents of BUFLEN. 


CHKBF F 


The CHKBUF buffer is loaded with a modified este remy pat- 
tern (0,0,2,2,4,4,6,6,...) beginning at the starting address of 
CHKBUF. The number of words loaded is determined by the con- 
tents of BUFLEN. This buffer is loaded poy for tests which 
use the maintenance mode of the DR11-W which has a special 
prerenteng DATI-DATO sequence of operation. 


The IE bit is cleared in the CSR then the CSR is checked for 
the absence of the error bit and the presence of READY. The 
WCR is checked to see that it is equal to zero. The correct 
contents of the BAR are calculated and checked. The program 
will fail to update the PC return address by 2 if ERROR is set, 
READY is clear, READY and ERROR are clear of the CSR, WCR is 
not zero or the BAR contents is not zero. This will call the 
error that is just after the jsr call in the test. If all data 
is acceptable, the PC is updated, and the return from the sub- 
routine is after the error call. 


SEQ 0016 





DATCHK 


This routine is entered to check inbuf after a maintenance mode 
operation. The contents of INBUF and the contents of CHKBUF 
are checked to see that they are the same. The number of com- 
parisons made is determined by the contents of BUFLEN. Any 
errors result in an RTS to the test to call the error there. A 
JSR back to the subroutine is executed to resume its checking. 
When returning, SP return address is updated by 6 to return 
after the error call and JSR return. 


CLENUP 


The routine is entered at the end of several tests to clear any 
data that may have been left in any registers, and to restore 
the interrupt vectors. 


CHKCAB 


This routine is used in various tests to alter the expected 
data if the WRAP-AROUND cable is out. 


DATOCK 


After a string of DATO'S has been completed this routine checks 
that the correct data pattern was transferred to INBUF. The 
number of comparisons made is determined by the contents of 
BUFLEN. An error in the check results in an RTS to the test to 
call the first error after the JSR call, where a JSR returns. 
control back to the subroutine for further checking. An addi- 
tional check is made on BUFLEN¢2 to insure that not too many — 
words were transferred. If they were, the PC return address is 
altered so that the second error after the JSR is cailed. If 
eM itis return is altered to just after the second error 

ca 2 


ERRCHK 


This routine clears IE and updates the PC for return after the 
error in the test if error is clear. If set, return is execu- 
ted without updating the PC return so the error call after the 
A RS ag in the test will be called. 

V 


This routine generates an address table located at REGADR 


starting with the base device address (contents of $BASE) in 
steps of 10. 


BPINIT 


This subroutine reloads the ‘'.+2°' and ‘‘BPT’’ into the unused 
locations between 4 and 776. 


SEQ 0017 


- 





10.15 


10.16 


10.17 


10.18 


10.19 


10.20 


10.21 


10.22 


10.23 


DRGET 


This subroutine extracts information about the DR11 that inter- 
rupted and loads the accumulated data into the device descrip- 
tor word for that board. 


TYPCNF 


This subroutine prints the board configurations that the ASIZE 
subroutine found on the UNIBUS. 


CHK4DR 


This subroutine checks for a location as belonging to a DR11 by 
—— to force an interrupt a total of 4 times with the CPU at 
priorities 6 through 3. If the attempt fails, routine corrects 
the stack to return after the DR11 extraction routine. If the 
location does belong to a DR11, the return address of the sub- 
routine on the stack is moved down one location, and the 
address+4 of the interrupt vector of the DR11 is put in the 
return addresses previous location. The stack is then popped 3 
times by adjusting the pointer up 6, and a normal return is 
executed. 


This routine autosizes the board configuration and prints the 
configuration if bit 12 (10000) is set in the SwR. 


VCTADS 


This routine generates the vector adcress table starting with 
the address in location ‘VECADR’. 


This routine reports unexpected or erroneous traps or inter- 
rupts through the BREAK-POINT-TRA? loaded in locations 4-776. 
The stack is cleaned 4 times before the error call, and 
restored twice after the error call for returning to the source 
of the trap. 


PSTATE 


This routine prints the state of the bit in the DDW that was 
Ay pe in location ‘BITTST’. 


This routine prints the device priority in the DDW location. 
SE TTUP 


SEQ 0018 | 








This subroutine checks for existence of Memory Management and 
if it exists, checks for the error condition of no memory loca- 
tion, but no ERROR and NEX bit sets. If memory management is 
not there, an exit yon ges By return address by 2 is done. 


If there, the XBA16 and XBA17 bits of the expected data are 
checked. If both zero, an exit updating the return address by 
2 is done. If either or both are set, the upper byte of the 
Memory Management locaticn is checked for the existence of 
upper memory, initialized at the beginning of the diagnostic. 
If not there (bits 0, 1 or 2 of upper byte clear), a normal 
exit is executed so the branch immediately following the JSR 
call will cause a check for the error bits in the expected to 
be set for another check. 


DATA STACKS 


11.1 


11.3 


This set of 7 data words is used to check any location for 
stuck or shorted bits. 


EXPATO 


This set of data words is used in test 31 to check all pos- 
sible combinations of set bits in the CSR with the maintenance 
bit clear. It contains the expected data that the CSR should 
contain after the bit combination is written to the CSR. 


EXPAT1 


This set of data words is used in test 3 to check all possible 
combinations of set bits in the CSR with the maintenance bit — 
set. It contains the expected data that the CSR should contain 
after the bit combination is written to the CSR. 


SE 


Q@ 0019 
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SEQ 0022 


-NLIST MC,MD,C 

- TITLE CZORLSO-DR11 GEN NPR INTFC 
s*COPYRIGHT (C) 1980 

:*DIGITAL EQUIPMENT CORP. 

; *MAYNARD , MASS. 01754 


; *PROGRAM BY DAN MILLEVILLE 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977, MODIFIED FOR 
THE CZDRLB DIAGNOSTIC. CHANGES ARE NOTED BY (;8& J] IN THE 
COMMENT FIELDS OF THE SSCOPE, SEOP, STYPE, SERROR, SCKSWR 
S$PWRON, SPWRUP (ELIMINATED), SERRTYP AND STYPDS ROUTINES. 
NEWTST WAS MODIFIED IN FUNCTION AS DESCRIBED BELOW. CHANGES 
WERE AS FOLLOWS: 


SSCOPE: END-OF-PASS MESSAGE DISABLING AND REENABLING CAPABILITY, 
PLUS UPDATING $TESTN JUST AFTER STSTNM IS UPDATED, AS 
WELL AS ANY NEEDED MESSAGES. 


SEOP: CHANGED TO RECOGNIZE WHETHER OR NOT THE USER a 
THE EOP MESSAGES PRINTED, AND PRINTS THE NUMBER 
ERRORS IN THAT PASS IF THERE WERE ANY, AND TYPES. AN 
EXTRA <CRLF> IF THERE WERE ERRORS TO SPACE EOP FROM 
THE ERROR. CHANGED ALSO TO RECOGNIZE WHEN THE PASS 
COUNT GOES NEGATIVE, AND IF SO, CLEARS THE PASS COUNT, 
AND INCREMENTS THE NEXT LOCATION AFTER $PASS TO COUNT 
A BLOCK OF 32768 PASSES HAS OCCURED. THIS LOCATION 
1S USED IN CONJUNCTION WITH SPASS TO PRINT UP TO 
PASS # 99,999,999 DECIMAL. 


STYPE: INSTEAD OF USING THE STACK TO LOAD A CHARACTER INPUTED 
WHILE PRINTING, LOOSING THE CHARACTER IN THE PROCESS, 
LOCATION 'CHARCT' IS USED TO SAVE IT FOR $SCOPE TO USE. 


SERROR: INCREMENT LOCATION ‘ERRCNT’ FOR POSSIBLE USE IN MULTIPLE 
ERROR PRINTOUTS. 


SCKSWR: TESTING AND PROCESSING OF THE CONTENTS OF LOCATION 
*CHARCT' WAS ADDED TO INCREASE CHANCES OF DIAGNOSTIC 
eb ga USER REQUEST FOR A SOFTWARE SWITCH REGISTER 


SERRTYP: ADDED CAPABILITY TO toa Sl pene WITHIN LOOPS (ERRORS 
WITH ERROR NUMBERS BETWEEN 201-377) SO THE MESSAGE AND 
DATA HEADER ARE ae BURN THE 1ST ao ONLY, WITH 

DATA ONLY PRINTED FOR 2ND AND SUBSEQUENT ERRORS. | 
CANCELS DATA PRINTING AFTER R20 (OCTAL) ERRORS HAVE BEEN 
DONE SO AS TO ELIMINATE MASSIVE ERROR TYPEOUTS, BUT 
CONTINUES TO TALLY THE oo tet IN LOCATION "SERTTL' SO THE 
EOP MESSAGE WILL SHOW THE TOTAL NUMBER OF ERRORS IN THAT 
PASS. IF AN ERROR NUMBER BELOW 201 IS CALLED, “ERRCNT* 
1S CLEARED SO IF THIS ERROR IS IN A LOOP, ANY SUBSEQUENT 
201+ ERRORS WILL HAVE THERE HEADER REPRINTED. 


ro 
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NEWTST: 


SPWRDN: 


STYPDS: 


" PAGE' WAS ADDED SO EACH NEW TEST WOULD BE ON A NEW PAGE. 

AT THE BEGINING OF EACH NEW TEST, THE TITLE AND TEST NUMBER 
f EACH TEST WILL APPEAR IN 

THE vABLE OF CONTENTS AT THE BEGINING OF THE DIAGNOSTIC. 


THE OPERATIONS TO SAVE REGISTER oa Aig ELIMINATED 
E TO THE LACK OF THE NEED. LOAD OF 


ROUTINE ON A POWER FAIL (CPU : 

OCCURED), PROCESSOR WILL EXECUTE THE POWER DOWN ROUTINE AND 

HALT. HITTING CONTINUE WILL RESULT IN THE POWER UP ROUTINE 

EXECUTING AS IT WOULD IN THE EVENT OF A RESTORATION OF POWER 
AFTER A POWER FAILURE WITH THE CPU RUNNING. 


THE ADDITION OF THE STYPDE FUNCTION WAS ADDED. ae FUNCTION 
ALLOWS THE PRINTING OF NUMBERS LARGER THAN 32767 DECIMAL. 

THE LOCATION THAT CONTAINS THE COUNT IS TO BE TESTED AFTER 
BEING INCREMENTED. IF NEGATIVE, IT IS TO BE CLEARED AND A 
SECOND (OVERFLOW) LOCATION IS TO BE INCREMENTED. WHEN 
CALLING THE ROUTINE, THE OVERFLOW LOCATION IS TO BE PUT ON 
THE STACK, THEN THE NUMBER, THEN THE CALL. IF THE OVERFLOW 
LOCATION iS NON-ZERO, IT WilL ADD 32768 TO THE ASCII NUMBER 
FOR EACH COUNT IN THAT OVERr LOW LOCATION. 


SEQ 0023 


mo 
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OPERATIONAL SWITCH SETTINGS SEQ 0024 
a) -SBTTL OPERATIONAL SWITCH SETTINGS 
> :* 
s* SWITCH USE 
; Rt een renee anon seen oo 
;* 15 HALT ON ERROR 
3 14 LOOP ON TEST 
:* 13 INHIBIT ERROR TYPEOUTS 
se 12 DO NOT PRINT BOARD CONFIGURATION 
3* 11 NOT USED 
:* 10 BELL ON ERROR 
7* 9 LOOP ON ERROR 
‘* 8 LOOP ON TEST IN SWR<6:0> 
42 3* 7 INHIBIT MULTIPLE ERROR TYPEOUTS 


mao 
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BASIC DEFINITIONS SEQ 0025 
44 .SBTTL BASIC DEFINITIONS 
js INITIAL ADDRESS OF THE STACK POINTER *#* 1300 «ee 
001300 STAC 300 
104000 ERROR=EmT 
j sMISCELLANEOUS DEFINITIONS 
000011 11 ::CODE FOR HORIZONTAL TAB 
000012 ‘Pe 12 +:CODE FOR LINE FEED 
000015 CR= 15 73CODE FOR LE ARRIAGE RETU 
000200 CRLF= 200 sCODE FOR CARRIAGE Re TURNHL IME FEED 
177776 PS= 177776 PROCESSOR STATUS WORD 
177776 PSW=PS 
177774 STKLMT= 177774 s:STACK LIMIT REGISTER 
177772 PIRQ= 177772 + PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 177570 : : HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 ROWARE DISPLAY REGISTER 
> *GENERAL PURPOSE reisték” DEFINITIONS 
000000 RO= %0 s:GENERAL REGISTER 
000001 Ri= 11 + OENERAL REGISTER 
000002 R2= %2 > :GENERAL REGISTER 
(00003 R3= 13 s GENERAL REGISTER 
000004 R4= 14 s:GENERAL REGISTER 
000005 R5= “5 s:GENERAL REGISTER 
000006 R6= 16 ::GENERAL REGISTER 
000007 R7= 17 ::GENERAL REGISTER 
000006 SP= 16 iE STACK POINTER 
000007 PC= 17 ROGRAM COUNTER 
> *PRIORITY LEVEL per inttioNs 
PRO= sO s PRIORITY LEVEL 0 
000040 PRi= ::PRIORITY LEVEL 1 
PR2= 100 ::PRIORITY LEVEL 2 
0 PR3= =—-:140 ::PRIORITY LEVEL 3 
000200 PR4= 00 ::PRIORITY LEVEL 4 
000240 PRS5= 40 >:PRIORITY LEVEL 5 
0003 PR6= 300 > PRIORITY LEVEL 6 
000340 : PRIORI 7 
"SWITCH REGISTER’ SWITCH DEFINITIONS 
100000 $w15 
040000 SW14= 
020000 $W13= 20000 
10000 SWi2= 10000 
000 SW11= 
2000 swi0= 2000 
001000 swo9= 1000 
00 swo8= 400 
000200 sw07= 200 
000100 sw06= 100 
0 sw0S= 40 
000020 $w04= 20 
000010 sw03= 10 
000004 SwO2= 4 
000002 Swol= 2 
040001 swo0= 1 
001000 $w9=SW09 
0004 $W8=SW08 


SW6=SW06 


oe 6S OO mH sree 9 
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Sw5=Sw05 
Sw4=Sw04 
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;*BASIC RAP VECTOR | ge 
4 ME OUT AND OTHER ERRORS 
RESVEC= ? RESERVED AND ILLEGAL INSTRUCTIONS 


TRAPVEC=34 
TKVEC= ? 
TPVEC= 


3; TRACE TRAP 

::BREAKPOINT TRAP (BPT) 

+3 INP oh tag TRAP (IOT) **SCOPE** 

: SEMULATOR TRAP (EMT) **ERROR** 
;“"TRAP’’ TRAP 


:;TTY KEYBOARD VECTOR 
3; TTY PRINTER VECTOR 
7;PROGRAM INTERRUPT REQUEST VECTOR 


E 
PIROVEC=940 
BU 


ABASE =172410 sBASE DEVICE ADDRESS 
AVECT1 =300 ;BASE VECTOR ADDRESS 


SEQ 0026 
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DEFINITIONS OF THE CSR BITS SEQ 0027 
48 .SBTTL DEFINITIONS OF THE CSR BITS 
49 SRRAAAAARARARAAEARERE AREER ATER A EEE RE EAA AE ATE AE AEE AEAEERAAR ERA EAED 
50 000001 60 21 ;60 
51 000002 F} =2 SFNCTI 
52 000004 re 24 SECT 
53 000010 F =10 TENT 
54 000016 FNC =16 SFNCTI & FNCT2 & FNCT3 
55 000020 x6 =20 :XBA16 
56 000040 x7 =40 :XBA17 
57 000100 IE =169 IE 
58 000200 RY =200 READY 
59 000400 cv =400  ;CYCLE 
60 000400 N2 =400  ;2/N BIT 
61 001000 DSC =1000 ;DSTAT C 
62 002000 DSB =2000  ;DSTAT B 
53 4000 DSA =4000 ;DSTAT A 
64 6000 DAB =6000 :DSTATA& 8B 
65 005000 DAC =5000 :DSTATA8& C 
66 003000 DBC =3000 ;DSTATB & C 
67 7000 DST =7000 :DSTATAR BEC 
68 010000 MA =10000 ;MAINT 
69 020000 AT =20000 ATTN 
70 040000 NX =40000 ;NEX 
71 100000 EIR =100000 EIR 
72 100000 ER =100000 ; ERROR 
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CSR BIT COMPLIMENT DEFINITIONS SEQ 0028 
73 -SBTTL CSR BIT COMPLIMENT DEFINITIONS 
74 FRRAARAARAAREAAEAAEAAAEAAA AREA AEAAAA AAA AAEA AREA EEAERAAEAAEAAAAAERAES 
75 177776 CGO =177776 ;COMPLIMENT OF GO 
76 177775 CF =177775 ;COMPLIMENT OF FNCT1 
77 177773 CF2 =177773 ;COMPLIMENT OF FNCT2 
78 177767 CF3 =177767 ;COMPLIMENT OF FNCTS 
79 177761 CFNC =177761 ;COMPLIMENT OF FNCT1 & FNCT2 &@ FNCTS 
80 177757 Cx6 =177757 ;COMPLIMENT OF XBA16 
81 177737 Cx7 =177737 ;COMPLIMENT OF XBA17 
82 177677 CIE =177677 ; COMPLIMENT OF 
83 177577 CRY =177577 ;COMPLIMENT OF READY 
84 177377 "v =177377 ;COMPLIMENT OF CYCLE 
85 176777 CDSC =176777 ;COMPLIMENT OF DSTAT C 
86 175777 CDSB =175777 ;COMPLIMENT OF DSTAT B 
87 173777 CDSA =173777 ;COMPLIMENT OF DSTAT A 
88 171777 CDAB =171777 ;COMPLIMENT OF DSTAT A & B 
89 172777 CDAC =172777 ;COMPLIMENT OF DSTAT A & C 
90 174777 CDBC 2174777 ; LIMENT OF DSTAT B & C 
91 170777 CDST =170777 ;COMPLIMENT OF DSTAT A&B S&C 
92 167777 CMA =167777 ; COMPLIMENT OF MAINT 
93 157777 CAT =157777 ;COMPLIMENT OF ATTN 
94 137777 CNX =137777 ;COMPLIMENT OF NEX 
95 077777 CEIR =77777 =;COMPLIMENT OF EIR 
96 077777 CER =77777 =;COMPLIMENT OF ERROR 





D 
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COMPLEMENTS OF BIT DEFINITIONS SEQ 0029 


97 -SBTTL COMPLEMENTS OF BIT DEFINITIONS 
98 FERRARA AAAEEAEREEAAEERERAAERAAAAERERAAARAAEAAERAAAHERARAAEAAAAAES 
99 177776 CBITO =177776 ;COMPLIMENT OF BITO 

100 177775 CBIT1 2177775 ;COMPLIMENT OF BIT! 

101 177773 atte 2177773 ; IMENT OF atte 

102 177767 CBIT =177767 ;COMPLIMENT OF BIT 

103 177757 CBIT4 =177757 ; COMPLIMENT OF BIT4 

104 177737 CBITS =177737 ;COMPLIMENT OF BITS 

105 177677 CBIT6 =177677 ;COMPLIMENT OF BIT6 

106 177577 CBIT? =177577 ;COMPLIMENT OF BIT? 

107 177377 CBIT8 =177377 ;COMPLIMENT OF BITS 

108 176777 CSIT9_ =-=176777 ;COMPLIMENT OF BIT9 

109 175777 CBI1T10 =175777 ;COMPLIMENT OF BIT10 

110 173777 CBIT11 =173777 ;COMPLIMENT OF BIT11 

111 167777 CBIT12 =167777 ;COMPLIMENT OF BIT12 

112 157777 CBIT13 =157777 ;COMPLIMENT OF BITI3 

113 137777 CBIT14 =137777 ;COMPLIMENT OF BIT14 

114 077777 CBIT15 =77777 ;COMPLIMENT OF BIT15 

115 057777 (B1513 =57777 ;COMPLIMENT OF BIT15 & BIT 13 
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PRIORITY LEVELS AND OTHER DEFINITIONS SEQ 0030 





116 -SBTTL PRIORITY LEVELS AND OTHER DEFINITIONS 
117 PTT rite isi i tiie i ir iistittiiiititii iii iii tility) 
118 000140 LEVEL3 =140 

119 000200 LEVEL4 =200 

120 000240 LEVELS =240 

121 300 LEVEL6 9 =300 

122 000340 LEVEL? =340 

123 33 ESC =33 

124 000003 CNTLC = =3 

125 000015 CARETN =15 

126 177572 RO =177572 

127 172304 K'PDR2 =172304 

128 172324 KDPDR2 =172324 

129 172344 KIPAR2 =172344 

130 172364 KDPAR2 =172364 

131 000250 MMVECT =250 

132 000252 MMPS =252 

133 000004 TOVECT =4 

134 000006 TMOPSW =6 

135 000003 BPT =3 

136 023074 TST4O=ENDEV BRANCH TO TEST 40 = BRANCH TO ENDEV (THERE IS NO TEST 40) 
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PRIORITY LEVELS AND OTHER DEFINITIONS . SEQ 0031 


137 RReeeReeeeeeeKeeeeeHeeeeeeeeeeeeaeeeKeeeeKeneeetereeeeeeeererere 

1 3* ALL UNUSED LOCATIONS FROM 4-776 WILL CONTAIN A ‘’.+2, is SEQUENCE 
139 :* TO CATCH ILLEGAL TRAPS & INTERRUPTS TO THE CATCH’ LOCATION 
140 :* 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

141 sddiieiaadedmanseemeabenreteestaneteneescsteaseeeesiteutenl 
142 000014 =14 ; THE BPT TRAP VECTOR POINTS TO THE 

143 000014 005536 BPTVCT: .WORD CATCH > ILLEGAL TRAP HANDLER ‘CATCH’ 

144 000016 000340 -WORD LEVEL? 

146 000042 ~=42 

148 000174 .=174 

149 000174 000000 CISPRE: .WORD 0 


0 000176 000000 SWREG: .WORD 


SURAARAAREAAEAERERE REA A EER AA EAA A EEE AER AERA AERAARAERAER AREA AH ERE RS 


“PROGRAM STARTING LOCATIONS 


SRRReeeeeeeReeeeeeeeeeeeeeeeeeeeeneneeeeeneeeeereeeereereneerene 
000137 010266 JMP START1 ;NORMAL START 
000137 030644 JMP MBD ;ENTER MULTIPLE BOARD DIALOQUE 
005037 001416 STAGIN: CLR $PASS :CLEAR $PASS 
005037 001420 CLR $PASS#2 ZCLEAR $PASS+#2 
5 :CLEAR $UNIT 
005037 001422 CLR S$DEVCT ZCLEAR $SDEVCT 
005037 001414 CLR $TESTN ZCLEAR $TESTN 
005037 002710 CLR EOPLOC CLEAR EOPLOC 
012737 041172 041170 MOV WCAPSTK,CAPNTR RESET THE CAPTURE POINTER 
000137 011006 JMP BEGINI : JUMP TO BEGIN] FOR RESTART WITHOUT HEADER PRINTING 


MADMIN 
DODONOUVE WN 


sseeessess 


ek ek ek a at ot 8 ot 
&Fwwnn—— 
w 
=] 
w 
~ 
So 
So 
— 
> 
~m 
= 
oO 
- 
xz 
bad 
Cc 
z 
— 
— 


SAFARIS 


147 000042 000000 -WORD 0 ;CLEAR THIS LOCATION (FOR APT MONITOR STARTING ADDRESS) 





















ACT11 


167 


168 


000046 
000052 


Tenge ts GEN NPR INTFC 


001000 


001000 
000024 
000200 
000044 


001000 
001000 


000053 
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-SBTTL ACT11 HOOKS 


PeReReeeeeaeeeeeerekeeerereeereteeeeeteneeteeKeKeeeteeeeeereeeeeee 


;HOOKS REQUIRED BY ACT11 
$SVPC=. ; SAVE PC 


.=46 
SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD 


"wORD 0 ::2)SET LOC, 52 TO ZERO 
“=$SV :: RESTORE P 
SBTTL APT PARAMETER BLOCK 


SRARARAAAREEERERERERET AERA EA AERAE AAA AEEAAEARE EAR AAAEAAERAE AREA EE 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
FRRRARARAERAAAAE AREA EAE AA AE REE A AEA AEAAEAAE TARE AAAARERAAARHERER EAE E 

SX=.  ; ;SAVE_ CURRENT LOCATION 

224  33;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ::FOR APT START UP 

.244  $;POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR ;;POINT TO APT HEADER BLOCK 

=.$X 3 ;RESET LOCATION COUNTER 
FRRAARARAARERERAAAEA AAA A EATER EAE AA AAA AERA RARER EREEAEEARRERERAAEEERS 
[SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
gINTERFACE SPEC. 


$HIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: .WORD $MAIL £3 ADD RESS QF APT MAILBOX (BITS 0-15) 
$TSTM: .WORD 10 3;RUN TIM OF LONGEST TEST 


SPASTM: .WORD 10 ae os TIME IN SECS. OF 1ST PASS ¥ 1 UNIT (QUICK VERIFY) 


IN .$EOP 


SEQ 0032 


SUNITM: — 0 DITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


SETEND~SHAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 


CZORLBO-DR11 GEN NPR INTFC 
COMMON TAGS 


170 


gggggggeses 


001340 


rs 
SESS RARAAAEEE 
~™ NOUSMOAL TN 


gggggges seggesess 
nue 


NINN 
o 


AAW 


sss 
oe 
nee 
SRS 


001300 
000000 
00 


377 


000 
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377 


-SBTTL COMMON TAGS 


SRRARARAAAAARAATAERARARARETAREEAAEAAEAAAAAAAAAAAAHEAENERAAERHATAAATE 


:*THIS pha goth i VARIOUS COMMON STORAGE LOCATIONS 


*USED I 
SCMTAG: 


SAUTOB: . 


$LF: 


N THE P 
300 


feleleleleleleleleleR jelelelelelolol—q) 


o°9o 
om 
—=£ 
ar) 
uv 


Nm 


Oooooooo O-NoO 


+, > malian adhd 


tis 
<12> 


3;START OF COMMON TAGS 


3; CONTAINS THE ae Hy NUMBER 

3; CONTAINS ERROR FLAG 

>: CONTAINS SUBTEST. ITERATION COUNT 
:: CONTAINS SCOPE LOOP ADDRESS 

:: CONTAINS SCOPE RETURN FOR ERRORS 
;: CONTAINS TOTAL ERRORS DETECTED 
::; CONTAINS ITEM CONTROL BYTE 

7; CONTAINS MAX. ERRORS PER TEST 

:: CONTAINS PC OF LAST ERROR INSTRUCTION 
: CONTAINS ADDRESS OF ‘GOOD’ DATA 
::CONTAINS ADDRESS OF "BAD" DATA 
eat me ee DATA 


NTAINS ‘BAD’ DATA 
i RE SERVED=-NOT TO BE USED 


;;AUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


s ADDRESS OF SWITCH REGISTER 
+ sADDRESS OF Se REGISTER 


BUFFER 
eeTTy PRINTER STATUS REG. ADDRESS 
;TTY PRINTER BUFFER REG. ADDRESS 
 ECONTAINS NULL CHARACTER FOR FILLS 
::;CONTAINS # OF FILLER CHARACTERS gt 
zz INSERT FILL CHARS. AFTER A ‘LINE F 
33° TERMINAL AVAILABLE’ FLAG (BIT<07>=0=YES) 


;;USER DEFINED 


32U FINED 
c ESCAPE ON ERROR ADDRESS 
CODE FOR BELL 
; QUESTION MARK 
: = CARRIAGE RETURN 
FEED 


PTTITIIITITITIITIT TTT TTT TIT ITTtttit 


SEQ 0033 





CZDRLBO-DR11 GEN NPR INTFC 
APT MAILBOX-ETABLE 


000000 


sesesessss 
RRNszaSS 
S 


ws 


000000 


001442 
001443 


000 
000 


001444 


001 
001 
001 
001 
001 
001 
001 
001 
001 
001 


000000 
000 
000 

ooo 


pepper re 
So RNSSENS 


. 
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-SBTTL APT MAILBOX-ETABLE 


FRARARARAAAAAEHAAEREAERE AE AATAERAERAAAAAEAAAE AE EAAAAAERAAEARARAEHEAED 


De QOS se ee te Ge Oe Oe oe 
°etrreaate7e 
— 
—< 
v 
— 


AMSGTY 
AFATAL 


ACPUOP 


AMAMS1 
AMTYP1 


AMADR1 
AMAMS2 


;;APT MAILBOX 
7 MESSAGE TYPE CODE 
+s FATAL ween NUMBER 


i ER 
33PASS ed && ADDITIONAL WORD LOCATION FOR OVERFLOW 


SIME SSAGE ADDRESS 
;;MESSAGE LENGTH 
7;APT ENVIRONMENT TABLE 
7 ENVIRONMENT BYTE 
;;ENVIRONMENT MODE BITS 
;;APT SWITCH REGISTER 
;;USER SWITCHES 
3; CPU has fi ah. 2 
BITS 15- By CPU T 
11/04=01, "11 /05= 02,11/20=03,11/40=04,11/45=05 
11/70=06.PDQ=07,0=10 
T 10=REAL TIME CLOCK 
T Q=FLOATING POINT a 
T §8=MEMORY MANAGEMENT 
;HIGH ADDRESS, a BYTE 


(HIGH BYTE) 
EC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
3;HIGH ADDRESS ,BLK#1 : 
MEM.LAST ADDR.=3 yi THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
7;HIGH ADDRESS,M.S. BYTE 
22 MEM. TYPE ,BLK#2 
MEM.LAST ADDRESS ,BLK#2 
THIGH oy Sef M.S.BYTE 
; MEM. TYPE BLK 
Tame LAST ADDRESS, BLK#3 
;;HIGH ADDRESS ,M.S.BYTE 
+7 MER. TYPE ,BLK#4 
sMEM.LAST ADDRESS ,BLK#4 
SP INTERRUPT VECTOR1 BUS PRIORITY#1 
3; INTERRUPT VECTOR#2BUS PRIORITY#2 
sICE BAP OF EQUIPMENT UNDER TEST 


VICE MAP 
7: CONTROLLER DESCRIPTION WORDA1 
See ecetbten women WORD#2 


; DEVICE DE PTOR WORDA#0 
;;DEVICE DESCRIPTOR WORD#1 
7 :DEVICE DESCRIPTOR WORD#2 
7 DEVICE DESCRIPTOR WORD#S 


DESCRIPTOR WORD#S 
DESCRIPTOR WORD#9 
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APT MAILBOX~E TABLE SEQ 0035 
001522 000000 SDDW10: .WORD  ADDWI0 ;;DEVICE DESCRIPTOR WORD#10 
001524 000000 SDDW11: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORD#11 
1368 000000 SDDWi2: .WORD ADDWI2 ;;DEVIC™ SESCRIPTOR WORD#1 
1530 000000 $DDW15: .WORD ADDWI5 ;;DEVICE veSCRIPTOR WORDA1 
1532 000000 $ODW14: .WORD ADDW14 ;;DEVICE DESCRIPTOR WORD#14 
Ft +4 000000 rere «WORD ADDWI5 ;;DEVICE DESCRIPTOR wORD#15 


———__—__ -_ __ ___ 
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ERROR POINTER T SEQ 0036 
-SBTTL ERROR POINTER TABLE 

s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

3 * THE karte 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 

S*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE os é PERTINENT. 


*NOT Ei: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERR 
: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EAPLAINED AS FOLLOWS: 
ie EM 7;POINTS TO THE ERROR MESSAGE 
3* DH :;POINTS TO THE DATA HEADER 
3* DT ;;POINTS TO THE DATA 
th DF :;POINTS TO THE DATA FORMAT 
001536 SERRTB: 
171 ;'TEM 1 
172 001536 043502 ~ WORD EM2 corey | a DR11 REGISTER 
173 001540 047023 » WORD DH2 ; TEST ERR PC ABRTPC REGISTER 
174 001542 051566 «WORD OT2 STESTN, SERRPC,OLDPC1,DREG,0 
\?? 001544 0000 » WORD 0 SPRINT ALL DATA OCTAL 
177 s ITEM 2 
178 001546 043536 . WORD EM3 ote OR W ~ a INCORRECT (0=B, 1=W) 
179 001550 047064 WORD DH3 3s TEST ERR P EXPMOD ACTMOD CSRADR 
180 001552 051600 » WORD DT3 STESTN, SERRPC,STMP1,BORW,CSR,0 
+ 001554 000000 WORD 0 :PRINT ALL DATA OCTAL 
183 sITEM 3 
184 001556 043604 ~ WORD EM4 s INIT Ae TO CLEAR WCR 
185 001560 047133 ~ WORD DH4 3s TEST ERR PC WCRADR WCRCONTENTS 
186 001562 051614 » WORD D4 ‘ STESTN, SERRPC ,WCR,RWCR,O 
+ 34 001564 000000 » WORD 0 >PRINT ALL DATA OCTAL 
189 sITEM 4 
190 001566 043635 WORD EMS s INIT he TO CLEAR BAR 
191 001570 047177 ~ WORD DHS :TEST # ERR PC BARADR BAREXP BARRCV 
192 001572 051626 ~ WORD DTS *$TESTN, SERRPC,BAR,EBAR,RBAR,O 
+4 001574 00 ~ WORD 0 PRINT ALL DATA OCTAL 
195 s ITEM 5 
196 001576 043 WORD EM6 s INIT Sa TO CLEAR BDR 
197 001600 04724 . WORD DH6 TEST # ERR PC Pane BDRCONTENTS 
198 001602 051642 WORD DT6 *$TESTN, SERRPC ,BDR,RBDR,O 
+4 001604 WORD 0 sPRINT ALL DATA tar 
201 s1TEM 6 
202 001606 043717 ~ WORD EM7 s INIT Ag x CLEAR ALL CSR R-W BITS 
203 001610 047312 » WORD DH7 STEST @# ERR CSRADR CSREXP CSRCONTENTS 
204 001612 051654 ~ WORD DT7 “$TESTN, sERnPe CSR,ECSR,RCSR,0 
$2 001614 000000 ~ WORD 0 >PRINT ALL DATA OCTAL 
207 ;1TEM 7 
208 001616 043765 WORD EM10 sRESET FAILED TO CLEAR WER 
209 001620 7133 WORD OH4 sTEST # ERR PC WCRADR WCRCONTENTS 
210 001622 051614 ~ WORD DT4 *$TESTN, SERRPC,WCR,RWCR,O 
211 001624 WORD 0 *PRINT ALL DATA OCTAL 


1 
$13 porees 
214 0016 
215 001632 
216 001634 
217 
218 
219 001636 
220 001640 
221 001642 
222 001644 
223 
224 
225 001646 
226 001650 
227 001652 
228 001654 
229 
230 
231 001656 
232 001660 
233 
234 001662 
235 001664 
236 
237 
238 001 
239 001670 
240 
241 001672 
242 001674 
243 
244 
245 001676 
246 001700 
247 
248 001702 
249 001704 
250 
251 
252 001706 
253 001710 
254 001712 
255 001714 
$28 
57 
258 001716 
+44 001720 
60 001722 
61 001724 
$8 
6 
264 ootres 
$03 0017 
66 0017352 
267 001734 
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051670 
000000 


044253 
047366 


051670 
000000 
044277 


047501 
051706 
000000 
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;1TEM 10 


sI1TEM 11 


s ITEM 12 


s1TEM 13 


sITEM 14 


pITEM 15 


sITEM 16 


: ITEM 17 


s1TEM 20 


;STESTN, SERRPC BU 
;PRINT ALL DATA 0 


&., 
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sATTEMPT TO SET ALL WCR BITS FAILED 
STEST # ERR PC WCRADR WCRCONTENTS 
SSTESTN, SERRPC,WCR,RWCR,O 

SPRINT ALL DATA OCTAL 


+3 FAILED TO CLEAR BAR 

ERR PC BARADR BAREXP BARRCV 
SSTESIN, SERRPC ,6AR, EBAR ,RBAR ,0 
PRINT ALL DATA OCTAL 


;ATTEMPT TO SET ALL BAR BITS TO 1 FAILED 
[TEST # ERR PC BARADR BAREXP BARRCV 
;STESTN, SERRPC ,BAR, EBAR,RBAR , 0 

PRINT ALL DATA OCTAL 


:CSR BIT TEST don tit ee - DIAGNOSTIC NOT CONTINUED) 


STEST # ERR PC TESTED CSRADR CSREXP CSRCONTENTS 
;STESTN, SERRPC ,BUT,CSR,ECSR,RCSR,O 


SPRINT ALL DATA OCTAL 


:CSR BIT TEST FAILED 
‘TEST # ERR PC TES 
T,C 
CTA 


$) 
ED CSRADR CSREXP CSRCONTENTS 
R,ECSR,RCSR,0 


( 
T 
S 
L 
sEIR BIT TEST FAILED 
BIT(S) 


HTEST # ERR PC TESTED EIRADR EIREXP EIRCONTENTS 
;STESTN, SERRPC BUT ,CSR,EEIR,REIR,O 


:PRINT ALL DATA OCTAL 


;READY Pa me ARE NOT THE ONLY BITS SET IN CSR 
:TEST # ERR °C CSRADR CSREXP CSRCONTENTS 

;STESTN, SERRPC ,CSR,ECSR,RCSR,O 

PRINT ALL DATA OCTAL 


sibs ERROR FAILED TO SET PROPERLY 
: TEST ERR PC CSRADR My CSRCONTENTS 
STESIN, SERRPC ,CSR,ECSR,RCSR,0 

PRINT ALL DATA OcTAL 


SATIN AND ERROR FAILED TO CLEAR PROPERLY 
‘TEST #@ ERR PC CSRADR CSREXP CSRCONTENTS 
*STESTN, SERRPC,CSR,ECSR,RCSR, 

SPRINT ALL DATA OCTAL 


SEQ 0037 
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ERROR POINTER TABLE SEQ 0038 

268 ITEM 21 

69 001736 044530 .wO EM22 sERROR BIT SHOULD HAVE BEEN CLEAR 

270 001740 047614 "WORD DH1? :TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
371 001742 051724 "WORD DT17  :$TESTN,SERRPC,CSR,ECSR,RCSR, 
i 001744 “WORD 0 SPRINT ALL DATA OCTAL 

se s ITEM 22 

275 001746 044640 ; EM24 READY a CSR WAS NOT SET 

276 001750 047614 “WORD DH17 :TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
377 001752 051724 “WORD 117 i STESTN, SERRPC,CSR,ECSR,RCSR,0 

278 001754 “WORD 0 SPRINT ALL DATA OCTAL 

280 SITEM 23 

281 001756 044671 .WORD €M25  =;BIT 0 OF THE BAR WAS SET 

282 001760 0471 “WORD DHS ‘TEST # ERR PC BARADR BAREXP BARRCV 

283 001762 ees “WORD DT5 :$STESTN, SERRPC BAR, EBAR, RBAR,0 

284 001764 000000 “WORD 0 ‘PRINT ALL DATA OCTAL 

286 SITEM 24 

287 001766 045016 .WORD EM30 : FUNCTION BIT(S) ARE NOT CLEAR 

288 001770 047614 “WORD DHI7 so :T ERR PC CSRADR CSREXP CSRCONTENTS 

289 001772 051724 “WORD 0117 sOTESTN, SERRPC, CSR,ECSR,RCSR,O 

290 001774 000000 “WORD 0 SPRINT ALL DATA OCTAL 

292 s ITEM 25 

293 001776 045054 .WORD EM31 ;DSTAT A, B OR C ARE NOT AS EXPECTED 

294 002000 047614 "WORD DH17 :TEST # ERR PC CSRADR CSREXP CSRCONTENTS 

395 002002 051724 "WORD DT17 :$TESTN,SERRPC,CSR,ECSR,RCSR,O 

296 002004 000000 “wORD 0 ‘PRINT ALL DATA OCTAL 

298 s1TEM 26 

299 002006 045120 .WORD EM32  ;BDR IS NOT CLEAR 

300 002010 047246 “WORD DH6 ‘TEST # ERR PC BDRADR BDRCONTENTS 

301 002012 051642 “WORD DT6 ‘$TESTN, SERRPC ,BDR,RBDR, 0 

302 002014 000000 “WORD 0 SPRINT ALL DATA OCTAL 

304 s1TEM 27 

305 002016 WORD sALL BOR BITS ARE NOT SET 

306 002020 “WORD ‘TEST # ERR PC BDRADR BDRCONTENTS 

307 002022 “WORD [$TESTN, SERRPC,BDR,RBDR,O 

363 002024 “WORD SPRINT ALL DATA OCTAL 

30 SI TEM 30 

311 002026 WORD ;BDR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN 
312 002030 “WORD ST # ERR PC BDRADR BDREXP BDRCONTENTS 
13 002032 “WORD “STESTN, SERRPC,.BDR,EBDR,RBDR,O 

314 0020 WORD :PRINT ALL DATA OCTAL 

316 S1TEM 31 

317 002036 WORD :BDR PATTERN NOT CORRECT 

318 002040 “WORD ‘TEST # ERR PC BDRADR _BOREXP BDRCONTENTS 
19 002042 “WORD ?$TESTN, SERRPC,BDR,EBDR,R 

320 002044 “WORD ‘PRINT ALL DATA OCTAL 





N 3 
MACRO M1113 22-AUG-80 13:42 PAGE 19 
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ERROR POINTER TABLE SEQ 0039 
3) s ITEM 32 
g 002046 045343 WORD €M37 READY 1S NOT THE ONLY BIT SET 
3 002050 047614 “WORD OHI? =: TES ERR PC CSRADR af SneX? CSRCONTENTS 
& 002052 051724 “WORD 0117 i STESTN, SERRPC,CSR,ECSR,R 
35 002054 000000 “WORD 0 SPRINT ALL DATA OCTAL 
$$ ITEM 33 
328 002056 045401 .WORD €M40  ;READY SHOULD NOT BE SET 
29 002060 047614 “WORD OH17 ;TEST # ERR PC CSRADR af SREX?P CSRCONTENTS 
002062 051724 "WORD DT17 :$TESTN,SERRPC,CSR,ECSR,RCSR,0 
31 002064 “WORD 0 SPRINT ALL DATA OCTAL 
333 sITEM 34 
334 002 045431 -WORD EM41 =; READY WAS CLEARED BUT NEVER SET AGAIN 
335 002070 047614 “WORD OH17 ;TEST # ERR PC CSRADR ai SREX? CSRCONTENTS 
36 002072 051724 "WORD D117 :$TESTN,SERRPC,CSR,ECSR,RCSR,O 
337 002074 “WORD 0 [PRINT ALL DATA OCTAL 
339 s1TEM 35 
340 002076 045533 .WORD €M43 =; DR11 FAILED TO INTERRUPT 
341 002100 050074 "WORD DH43 TEST # ERR PC CSRADR CSRCCNTENTS 
342 002102 052004 “WORD D143  ;$TESTN,SERRPC,CSR,RCSR,O 
343 002104 WORD SPRINT ALL DATA OCTAL 
345 SITEM 36 
346 002106 045564 .WORD €M44 ;DR11 INTERRUPTED, BUT IT SHOULDN'T HAVE 
347 002119 050074 "WORD DH43 TEST # ERR PC CSRADR CSRCONTENTS 
38 002112 052004 “WORD D143  :$TESTN,SERRPC,CSR,RCSR,O 
349 002114 00 “WORD [PRINT ALL DATA OCTAL 
351 sITEM 37 
352 002116 045634 .WORD EM4S — ;ERROR BIT SHOULD NO? BE CLEAR 
353 002120 047614 "WORD DH17 :TEST # ERR PC CSRADR <SREXP CSRCONTENTS 
334 002122 051724 "WORD OT17 :$TESTN,SERRPC,CSR,ECSR,RCSR,O 
335 002124 “WORD 0 SPRINT ALL DATA OCTAL 
357 s ITEM 40 
358 002126 045747 .WORD EM47  ;CSR 1S WRONG 
359 002130 047614 "WORD DH17 :TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
002132 051724 "WORD D117 :$TESTN,SERRPC,CSR,ECSR,RCSR,O 
1 002134 WORD 0 SPRINT ALL DATA OCTAL 
: ;ITEM 41 
364 002136 0457 -WORD EMSO =; TRANSFERS SHOULD HAVE BEEN INHIBITED 
365 002140 050140 "WORD DHSO :TEST # ERR PC WCRADR WCREXP WCRRCV BARADR BAREXP BARRCV 
366 002142 052016 “WORD D150 ;STESTN, SERRPC ,WCR, EWCR,RWCR,BAR,EBAR,RBAR 0 
7 002144 WORD SPRINT ALL DATA OCTAL 
366 STEM 42 
70 002146 046031 .WORD €M51  ;DR11 SHOULD NOT HAVE INTERRUPTED a. SECOND TIME 
71 002150 050074 "WORD DH43 TEST @ ERR PC CSRADR CSRCONTENT 
7 002152 052004 "WORD D143  :S$TESTN,SERRPC,CSR,RCSR,O 
73 002154 .wORD 0 =PRINT ALL DATA OCTAL 
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~ 

uw 

S 

rrrr 

a 

RSs FRVSS 


gees 8s 


599 
400 002216 
pet: 002220 


403 002222 
rr a} 002224 


406 
407 002226 
408 30 


046214 
050020 
051770 
000000 
046272 
050316 
052056 
000000 
046322 
050463 
052076 
000000 


046361 


;1TEM 


7 ITEM 


; ITEM 


; ITEM 


s1TEM 


;1TEM 


Zs ITEM 


;1TEM 


; ITEM 


43 


44 


45 


46 


47 


50 


51 


418 oo INTERRUPT DID NOT OCCUR 
; TES ERR PC C 


¥ SR ADR gC SRCONTENTS 
SSTESTN, SERRPC,CSR,R 
SPRINT ALL DATA star 


BAR Is w ONG 

= TES eR R PC BARADR aBAREXP BARCONTENTS 
‘ STESTN, SERRPC,.BAR,EBAR,R 

SPRINT ALL DATA OCTAL 


;BAD DATA IN BOR 
;TEST # ERR PC BDRADR BDREXP BDRCONTENTS 
:STESTN, SERRPC ,BDR,EBDR,RBDR, 


SPRINT ALL DATA OCTAL 


; BUFFER DATA NOT CORRECT 
CHECK CHECK INPUT ~ INPUT 

:TEST # ERR PC BUFADR BUFLAT BUFADR BUFDAT CSRADR 

SSTESTN, SERROC ,STMP4,STMP2,STMPS,STMP3,CSR,0 

PRINT ALL DATA OCTAL 


; 100 MANY WORDS wy — 


STEST # ERR PC EXPECT ADRESS CSRADR 
:STESTN, SERRPC ,STMP2,STMP3,CSR,0 
[PRINT ALL DATA OCTAL 


UNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW 
:TEST # ERR PC WCRADR OLDPC _ TRAP ADR 

:STESTN, SERRPC ,WCR,OLDPC2,BDVECT,O 

:PRINT ALL DATA OCTAL 


iCSR - te WCR AND-OR BAR ARE INCORECT 

;TEST # ERR PC WCRADR WCREXP WCRRCV CSREXP CSRRCV BAREXP BAR 
SSTESTN, SERRPC ,WCR,EWCR,RWCR,ECSR,RCSR,EBAR,RBAR ,0 

PRINT ALL DATA OCTAL 


;OR11 mye AT WRONG LEVEL 

sTEST # ERR PC EXPLVL wt ys CSRADR 
:STESTN, SERRPC, ‘PALEY. LEVEL,CSR,0 

;PRINT ALL DATA OCTA 


t 


;0R11 FAILED TO INTERRUPT 
;TEST # ERR PC 
sSTESTN, SERRPC ,STMP1 CSR, 
;PRINT ALL DATA OCTAL 


EXPLVL — 
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CZDRLBO-DR11 GEN NPR INTFC 
ABLE SEQ 0041 


ERROR POINTER T 


429 sITEM 54 
430 002266 046553 WORD EM65 sone oe BURST SWITCH IN WRONG POSITION 
431 002270 051047 WORD DH65 -TEST # ERR PC CSRADR EIREXP EIRRCV 
432 002272 052200 WORD 0165 “$TESTN, SERRPC, CSR, EEIR,REIR,O 

2274 000000 0 ‘PRINT ALL DATA OC TAL 
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ERROR POINTER TABLE SEQ 0042 
434 002276 ER200: sTHIS IS THE STARTING POINT FOR ERROR MESSAGES 201 
435 sak on ‘THROUGH 277. THEY ARE USED FOR MULTIPLE ERROR MESSAGES. 
437 002276 046272 -WORD EMS? BUFFER DATA NOT CORRECT 
438 002300 050316 SWORD 0H57 CHECK CHECK INPUT INPUT 
439 ‘TEST # ERR PC BUFADR BUFDAT BUFADR BUFDAT CSRADR 
440 002302 052056 .WORD DTS7  :$TESTN,SERRPC,STMP4,S$TMP2,STMP5,STMP3,CSR,0 
4a} 002304 000000 “WORD SPRINT ALL DATA OCTAL 
443 sITEM 202 
444 002306 046667 “WORD E€M202  ;CSR PATTERN NOT CORRECT 
445 002310 051165 "WORD OH202 :TEST # ERR PC CSRADR PATLDD CSREXP CSRRCV 
446 002312 052230 “WORD DT202 :$TESTN,SERRPC,CSR,BUT,ECSR,RCSR,O 
447 002314 000000 “WORD 0 SPRINT ALL DATA OCTAL 
449 SI TEM 203 
450 002316 044722 “WORD €M26 —so; BIT PATTERN TEST FAILED IN BAR 
451 002320 047744 "WORD DH26  :TEST # ERR PC BARADR BAREXP BARCONTENTS 
452 002322 051754 "WORD D126 :$TESTN,SERRPC,BAR,EBAR,RBAR 
433 002324 000000 “WORD SPRINT ALL DATA OCTAL 
455 SITEM 204 
456 002326 044761 .WORD EM27 =; WCR DATA PATTERN NOT CORRECT 
457 002330 047670 "WORD DH23  :TEST # ERR PC WCRADR WCREXP WCRCONTENTS 
458 002332 051740 "WORD D123 :$TESTN,SERRPC,WCR,EWCR,RWCR,O 
459 002334 000000 “WORD :PRINT ALL DATA OCTAL 

1 :1TEM 205 
462 002336 045313 “WORD EM36 ~~; BOR PATTERN NOT CORRECT 
463 002 050020 “WORD DH34  :TEST # ERR PC BDRADR gaDREXP BDRCONTENTS 
464 002342 051770 "WORD D134  :$TESTN,SERRPC,BDR,EBDR,RBDR,O 
465 002344 000000 “WORD =PRINT ALL DATA OCTAL 
67 S1TEM 206 
468 002346 046151 .WORD EMS3 =: WCR NOT EQUAL TO ZERO 
469 002350 051404 "WORD DH210 :TEST # ERR PC WCRADR WCRCONTENTS 
470 002352 052300 "WORD DT210 :$TESTN,SERRPC.WCR,RWCR,O 
7 002354 00 “WORD :PRINT ALL DATA OC TAL 
473 s1TEM 207 
474 002356 046177 “WORD €MS4 BAR IS WRONG 
475 002360 047744 "WORD DH26  :TEST # ERR PC BARADR aBAREXP BARCONTENTS 
476 002362 051754 "WORD 0126 :$TESTN,SERRPC,BAR,EBAR,R 
47? 002364 “WORD [PRINT ALL DATA OCTAL 
479 :1TEM 210 
480 002366 046234 “WORD €MS6 DATA NOT TRANSFERED CORRECTLY 
481 002370 050237 "WORD DH56 :TEST # ERR PC NPRIAD NPRIEX NPRIRC CSRADR 
482 002372 052040 "WORD 0156 :STESTN,SERRPC,ANPR1,ENPR1,NPR1,CSR,0 
483 002374 “WORD =PRINT ALL DATA OCTAL 
485 sITEM 211 
486 002376 046717 “WORD €M211 = ;BDR AND-OR WCR AND-OR BAR ARE INCORECT 
487 002400 051450 "WORD DH211 :TEST # ERR PC WCRADR WCREXP WCRRCV BDREXP BORRCV BAREXP BAR 
488 002402 052312 WORD DT211 :$TESTN,SERRPC,WCR,EWCR,RWCR,ECSR,RCSR,EBAR.RBAR ,O 
489 002404 9000 WORD 0 ‘PRINT ALL DATA OCTAL 
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ERROR POINTER TABLE 


490 sITEM 212 
491 002406 045672 - WORD 


EM46 
492 002410 047614 «WORD DH17 
493 002412 051724 -WORD OT17 
494 002414 000000 . WORD 


E 4 
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sFUNCTION BITS DIDN'T INCREMENT IN MAINT MODE 
;TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
;STESTN,SERRPC,CSR,ECSR,RCSR,0 

;PRINT ALL DATA OCTAL 
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STORAGE LOCATIONS SEQ 0044 
495 .SBTTL STORAGE LOCATIONS 
496 PRRAHAAAAAAAAAAAAAAAAATHAAAERATAAEHER AHA HKE KKH HKHHAHEKA HARE HEAAE HS 
497 3 
rps ; STORAGE LOCATIONS 
500 Seeeeeeeeeeeeeneeeererereters SHHAAAAARAERAREARAAEREEAERERAERAERAREREEE 
501 
202 002416 000001 QTYBRD: .wORD 1 TOTAL # DR11 BOARDS BEING TESTED (DEFAULT = 1) 
504 002420 REGADR: .BLKW 16. sTOTAL: 16 LOCATIONS FOR BOARD ADDRESSES 
205 002460 VECADR: .BLKW 16. sTOTAL: 16 LOCATIONS FOR VECTOR ADDRESSES 
444 REGISTER AND VECTOR ADDRESS STORAGE LOCATIONS FOR THE DR11 UNDER TEST 
509 FRRAAAAAAAAERAHEAAAEAHAATATAAERARAAAAARAERHEREKERHAAAKEAHEAAERARA AAD 
510 :D0 NOT INSERT ANY ITEMS BETWEEN ANY OF THE LOCATIONS BELOW 
$11 FRRARAAAAAREAEEEAEEAAEE EERE RAHAT A AERA AARAEAARAEREARAAERAARHER EEE 
512 002520 000000 WCR: .WORD 0 
513 002522 000000 BAR: . WORD 
514 00000 CSR: .WORD 0 
515 000000 BOR: -WORD 0 
516 002530 000000 DRINV: .WORD 0 
517 00 0000 DRVS .WORD 0 
518 00 000000 SDRINV: .WORD 0 
519 002536 SDRVS: .WORD 0 
520 FRRAARAARAAEAAEERERAE EAE AAA RARER AERA RAAAAAREREAAAAAERARA RARER AES 
$21 :DO NOT INSERT ANY ITEMS BETWEEN ANY OF THE LOCATIONS ABOVE 
25¢ RARER TEAR ERAAAARAREAAEAAAARAAAARAAAAEARAARAAAERAE 
523 002540 000000 Bul: .wORD 0 :BIT(S) UNDER TEST LOCATION 
$24 002542 000000 LEVEL: .WORD 0 :BR LEVEL LOCATION 
525 002544 000000 SDVECT: .WwORD 0 
526 002546 000000 DEVMSK: .WORD 0 
527 0025 000000 TABINX: .WORD 0 
528 002552 000000 DREG: WORD 0 
529 002554 000000 DRLEV: .WORD 0 
530 002556 000000 NXTTST: .WORD 0 
33) 0025 000000 PASCNT: .WORD 0 
533 002562 000000 RCSR: .WORD 0 :CSR ACTUALLY READ FROM DEVICE UNDER TEST 
534 002564 000000 REIR: .WORD 0 sEIR ACTUALLY READ FROM DEVICE UNDER TEST 
535 002566 000000 RBDR: .WORD 0 sBDR ACTUALLY READ FROM DEVICE UNDER TEST 
536 002570 000000 RBAR: .WORD 0 sBAR ACiUALLY READ FROM DEVICE UNDER TEST 
14 002572 000000 RWCR WORD 0 sWCR ACTUALLY READ FROM DEVICE UNDER TEST 
539 002574 000000 ECSR: .WORD 0 :CSR EXPECTED 
540 002576 000000 EEIR: .WORD 0 sEIR EXPECTED 
541 002600 000000 EBDR: -WORD 0 :BDOR EXPECTED 
542 002602 000000 EBAR: .WORD 0 :BAR EXPECTED 
543 002604 000000 EWCR: «WORD O sWCR EXPECTED 
544 002 060000 ENPR1: -WORD 0 “EXPECTED OF NPR1 | 
545 002610 002614 ANPR1: .WORD NPR1 sADDRESS OF NPR1 
546 002612 000000 BORW: wOoRD 0 
547 002614 956282 NPR1: WORD 52525 
548 002616 173000 DIOMEM: .WORD 173000 
549 002620 037164 INBUF: .WORD XINBUF 
550 002622 040166 CHKBUF: .WORD XCHKBU 
551 002624 000000 BUFLEN: .WORD 0 
| 
| 


4 
CZDRLBO-DR11 GEN NPR INTFC MACRO M1113 22-AUG-80 13:42 PAGE Set 


STORAGE LOCATIONS 


SEQ 0045 | 


55 poses 000000 LENCHK: .WORD 0Q 
553 002630 000000 BRWAIT: .WORD 0 
554 poses 000000 WCLEN: .WORD 0 
555 0026 000000 RDYCHK: .WORD 0 
556 002636 177560 TKS: -WORD 177560 
557 002640 177562 TKB: WORD 177562 
558 002642 177564 TPS: WORD 177564 
559 002644 177566 TPB: WORD 177566 
560 002646 000000 MSG: -WORD 0 
561 002650 000000 ADDR: .WORD 0 
562 002652 000000 MESSAG: .WORD 0 
563 002654 000000 F'AG: .WORD 0 
564 002656 000000 FNCCNT: .WORD 0 
565 002660 000000 INBUF1: .WORD 0 
566 002662 000000 TIME:  .WORD 0 ;GENERAL PURPOSE TIMER 
567 002664 000000 LOOP: .WORD 0 ;GENERAL PURPOSE LOOP COUNTER 
002 000000 ANSWER: .WORD 0 
569 002670 BDFAIL: .WORD 0 
570 002672 000000 MANSIZ: .WORD 0 
571 002674 000000 OLDPC1: .WwORD 0 ;LOCATION TO STORE RETURN PC IN SUBROUTINES WITH ERROR CALLS 
572 002676 000000 OLDPS1: .WORD 0 ;LOCATION TO STORE PS 
573 0027 OLDPC2: .wORD 0 ;LOCATION TO STORE RETURN PC IN SUBROUTINES WITH ERROR CALLS 
574 002702 000000 OLDPS2: .WwORD 0 ;LOCATION TO STORE PS 
575 0027 000000 OFL: -WORD 0 sFIRST CHAR FLAG 
576 002706 000000 LRGSTC: .WORD 0 ;LOCATION FOR LARGEST NUMBER CHARACTER FOR THE READ SUBROUTINE 
577 002710 000000 EOPLOC: .WORD 0 ;LOCATION TO HOLD FLAG DECIDING IF EOP MSGS ARE TO BE PRINTED 
578 002712 000000 BITTST: .WwORD 0 LOCATION TO PUT THE BIT STATE TO PRINT = USED BY SUBROUTINE PSTATE 
579 002714 000000 MEMGMT: .WORD 0 ;LOCATION TO HOLD FLAG SAYING MEMORY MANAGEMENT IS AVAILABLE 
580 002716 00000 ERRCNT: .WORD 0 
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91 
592 002720 000000 
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DEVICE DESCRIPTOR WORD BIT DESCRIPTION 


-SBTTL DEVICE DESCRIPTOR WORD BIT DESCRIPTION 


FRRRAAAAERAARAA AAA AAA AEE A AEE A TEER E AAA A AEA AE AREA ARATE EAARAEE NS 


Se Se Be Be Be He 


CW: 


DESCRIPTION OF BITS IN THE DDW (DEVICE DESCRIPTOR WORD): 
BIT 0 DR11-w=0, DR11-B=1 

BIT 1 2 CYCLE=0, N CYCLE=1 

CABLE DOESN'T EXIST=0, CABLE DOES EXIST=1 


2 
es. 
6 > BR PRIORITY 


-WORD 0 ;LOCATION FOR STORAGE OF THE DEVICE DESCRIPTOR WORD 
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SUBROUTINE TO INPUT A CHARACTER OR UP TO A 6 DIGIT NUMB 


593 

59% 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 002722 

612 002724 

613 002730 

614 002732 

615 002740 

616 002744 

617 002746 

618 002750 

619 002754 

629 ogre 
1 002764 

622 002770 

623 002772 

624 003000 

625 003002 

626 003006 

627 003010 

628 003016 

629 003022 

630 003030 

631 003032 

632 003040 

633 003042 

634 003046 

635 003052 

636 003054 

637 003056 

638 003060 

639 003062 

ef Sse 

73} 003074 

64 oottes 

644 00310 

645 0031046 

646 003112 

647 003114 

648 003120 

649 003124 


22737 


ert) 
— 
Ls 
~ 


Eas 
SSSF seuss 


SSLSRSVSSFS3S 
Ssussiass 


$e 
NEN NONONV 
oo 
~— 


027423 
027423 
027423 
002666 
000003 
033607 
000033 
033476 
002666 
033605 
000057 
002706 


002666 
000060 


000071 
000007 
000015 


000002 
001405 
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002666 


002666 


002666 


033605 


002666 
002666 


002706 


002666 


-SBTTL SUBROUTINE TO INPUT A CHARACTER OR UP TO A 6 DIGIT NUMBER 


jeeeneenteneeeuecenecececenececerenecenanencecanececanececeretetes 


seneeenennennne 


4$: 


5$: 


6$: 


THIS SUBROUTINE IS USED - THE EDIT ROUTINE TO INPUT NUMBERS AND A 
R O BE LOADED wy THE NUMBER OF DIGITS 

F A NON-NUMERIC CHARACTER IS 
INPUTED, LEAVING THE CHARACTER IN LOCATION ‘ANSWER’. IF A NUMERIC 
CHARACTER IS INPUTED, IT WILL CLEAR ALL BUT THE iy” “4 BITS EXPOSING 
WHICH WAS CLEARED 

UB C* IS TO BE LOADED 

WITH THE LARGEST ASCII CHARACTER ACCEPTABLE FOR THIS NUMBER, 7 
OR 9 (FOR OCTAL OR DECIMAL INPUT RESPECTIVELY). IT WILL ONLY ACCEPT 
THE NUMBER DIGIT EQUAL TO OR LESS THAN THIS DIGIT. IT WILL ONLY ACCEPT 
THE MAXIMUM NUMBER OF DIGITS SPECIFIED BY R3, PRINTING A <CRLF> WHEN 
THAT LIMIT IS REACHED. IF A <CR> IS INPUTED BEFORE THE MAXIMUM IS 
REACHED, ROUTINE EXITS LEAVING THE INPUTED NUMBER IN RG. 


—-— ke ah Ce he fe eet ee 


CLR ;CLEAR THE CHARACTER RECEIVER 
TSTB CHARCT SEE IF A CHARACTER WAS INPUTED DURING PRINTING 
BEQ 1$ BRANCH TO INPUT A CHARACTER IF 


NOT 
;MOVE THE CHARACTER TO THE ANSWER LOCATION 


MOVB CHARCT ,ANSWER 

CLRB CHARCT ;CLEAR THAT SUCKER 

BR 2$ :G0 CHECK Hy OUT, YOU DUMMY 

RDCHR :GET A CHARACTER 

MOV (SP) +, ANSWER ; POP y's CHARACTER OFF STACK 

CMP #CNTLC,ANSWER ;SEE IF A *C WAS_INPUTED 

BNE 3$ ; BRANCH AROUND ITS PRINTING IF NOT 

TYPE eCNTRLC eS: 

BR 6$ KICK OUT OF THIS ROUTINE 

CMP WESC, ANSWER SEE IF AN <ESC> WAS INPUTED 

BNE 4$ :BRANCH AROUND ITS PRINTING IF NOT 

TYPE eESCAPE sTYPE: ‘<ESC>’ 

BR é$ KICK OUT OF THIS ROUTINE 

MOVB ANSWER, a= ;MOVE CHARACTER FOR PRINTING 

TYPE eLETNCR 3:GO TYPE THE INPUTED CHARACTER 

CMP #°7 ANSWER :SEE IF A NON-NUMERIC/ALPH CHARACTER WAS INPUTED 
BPL 5$ ;BRANCH TO R4& TEST IF SO 

CMPB LRGSTC ANSWER E IF A yr so ete CHARACTER WAS INPUTED 
BM! 6$ ;BRANCH TO EXIT IF SO 

MOV ANSWER ,- (SP) :MOVE ASCII TO STACK FOR PREPARATION 

BIC #60, (SP) ;CLEAR ALL BUT THE NUMBER INPUTED 

ASL RG :SHIFT R4 te PLACES 

ASL R4 O MAKE ROOM FOR 

ASL R4 STHIS CHARACTER 

ADD (SP)+,R4 ;ADD THE OCTAL NUMBER TO R4 

DEC R3 ;SUBTRACT 1 FROM THE LOOP COUNTER AND 

BNE 1$ ;BRANCH BACK IF NOT ALL CHARACTERS INPUTED 
CMPB #'9,LRGSTC ;SEE IF NUMBER IS TO BE DECIMAL 

BNE 6$ ;BRANCH IF NOT 

CMP #7 RG ; SEE B INPUTED NUMBER IS 7 OR LESS 


BPL 6$ BRANCH IF SO 

CMP #CARETN, ANSWER set iF CARRIAGE Aw. WAS INPUTED 

BEQ 6$ :BRA NCH_IF SO = R4& IS CORRECT 

ADD #2,R4 ADD 2 TO R4 " MAKE OCTAL NUMBER THE DECIMAL EQUIVALENT 


, SCRLF PRINT A <CRLF> 
RTS PC sEXIT 





650 
651 
652 
653 
654 
655 
656 

57 


gereeseccs 


aw 


seseseses 


CZDRLBO-DR11 GEN NPR _INTFC 
SUBROUTINE TO CAPTURE UNIT #, PASS # & TOTAL ERRORS 


-SBTTL SUBROUTINE TO CAPTURE UNIT #, PASS # & TOTAL ERRORS 


jtenenenenenenencerereetecerereecerececetenanenencecennnnecererens 


THIS SUBROUTINE IS CALLED BY SEOP AND ENDEV TO SAVE THE UNIT NUMBER 
PASS NUMBER, AND TOTAL ERRORS FOR THAT DEVICE/PASS FOR SAVING WHENEVER 
A DEVICE PASS CONTAINS ERRORS. 


jeunnennneneeneueeeeeeeeeesesecscsseceneseneneteseneasenseceeeeees 


043452 041170 Sep ,CAPNTR 


041170 


041170 
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SEQ 0048 


: SEE IF —, IS FULL OF BULL 
KICK OUT IF FULL 
MOVE CAPNTR CONTENTS re RO 
T UNIT NUMBER ON STA 
PU! OVERFLOW PASS NUMBER ON STACK 
T PASS NUMBER ON STA 
‘PUT TOTAL ER: RS ON ST ACK 
1 CAPNTR 79 NEW POINTER VALUE 
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SUBROUTINE TO PRINT THE DATA STORED BY SUBROUTINE ERCAPT SEQ 0049 
667 .SBTTL SUBROUTINE TO PRINT THE DATA STORED BY SUBROU.INE ERCAPT 
= 3 RRAAARERAAAAAAAEAAERAEAAAEAAAAAAAAERAAAAAARERAAAAEAAAAAAAAAREAARAEAAEE 
66 ie 
670 i* THIS SUBROUTINE I$ INVOKED BY ENTERING (°¥) DURING THE EXECUTION OF | THE 
671 :¢ TEST. IT PRINTS ALL DATA STORED IN THE 'CAPSTK’ STACK STORED BY THE 
67 :¢ "ERCAPT' SUBROUTINE, REINITIALIZES THE POINTER, AND RETURNS. *DATA® 
673 ie *PRINTED*IS*LOST* BECAUSE OF THE REINITIALIZATION OF THE COUNTER. 
-« 

675 jeeceeneasecencceeerececeeererectareanatessnaacanseaneeecenseeeetes 
67 003170 022737 061172 041170 PICAPT: CMP —MCAPSTK,CAPNTR SEE IF THERE IS ANY DATA. TO PRINT 
677 003176 001003 BNE 1$ :BRANCH TO PRINT IT IF THERE IS 
678 003200 104401 032725 TYPE NODATA :TYPE: 'NO ERROR TOTALS TO REPORT' 
679 003204 000462 BR KICK OUT 

003206 622737 043452 041170 18: CMP 8s WENDS TK, CAPNTR ‘See IF STACK IS FULL OF BULL 
681 003214 001002 BNE 2$ :BRANCH AROUND STACK IS FULL MESSAGE IF NOT 
682 003216 104401 032534 TYPE =, STKIFL TYPE: {STACK IS FULL = DATA MAY HAVE BEE Lost* 
683 003222 104401 032607 2$: TYPE ;ERCHDR TYPE: SUMMATION OF ERRORS SINCE, BEGINNING OR LAST REPORT" 
685 003226 012700 041172 MOV —s #CAPSTK, RO “MOVE ADDRESS OF STACK TO PRINT TO RO 
686 003232 012701 000020 MoV = s #16. R1 :MOVE 16 BOARDS TO SEARCH TO RO 
687 003236 005037 001362 CLR STMPA :CLEAR $TMP1, DEVICE POINTER 
$88 003242 021037 001362 3$: CMP (RO) ,STMP1 SEE IF UNIT NUMBER IS TO PRINT 
689 003246 001403 BEQ sO :BRANCH TO PRINT DATA IF SO 
690 003250 062700 000010 ADD —«- #10, RO :G0 TO NEXT SET OF DATA AND 
691 003254 000420 BR :GO0 SEE IF ANY MORE TO CHECK 
692 003256 012046 4$: MoV (RO) +,=(SP) :MOVE UNIT NUMBER TO STACK FOR PRINTING 
693 003260 104405 TYPDS :G0 TYPE UNIT NUMBER IN DECIMAL 
694 005262 104401 033764 TYPE —, SPACES :TYPE 2 SPACES 
695 003266 012046 MoV (RO)+,=(SP) :MOVE OVERFLOW PASS NUMBER TO STACK FOR PRINTING 
696 003270 001002 BNE 5$ BRANCH IF NON-ZERO 
697 003272 104401 033764 TYPE , SPACES iTYPE AN EXTRA 2 SPACES - NUMBER WILL NOT BE EXTENDED 
698 003276 012046 5$: mov (RO) +,=(SP) OVE PASS NUMBER TO STACK FOR PRINTING 
699 003300 104406 TYPDE £60 TYPE PASS NUMBER IN EXTENDED DECIMAL 
700 003302 104401 033764 TYPE —_, SPACES TYPE 2 SPACES 
701 003306 012046 MoV (RO) +,=(SP) :MOVE ERROR TOTAL TO STACK FOR PRINTING 
702 003310 104405 TYPDS GO TYPE ERROR TOTAL IN DECIMAL 
703 003312 104401 001405 TYPE —_, SCRLF TYPE <CRLF> 
704 003316 020037 041170 6$: CMP —s- RO, CAPNTR SEE IF ALL DATA HAS BEEN PRINTED 
705 003322 001347 BNE 3$ BRANCH BACK IF NOT 
706 003324 005237 001362 INC $TMP1 INCREMENT DEVICE POINTER 
707 003330 012700 041172 MOV —- #CAPSTK, RO INITIALIZE TO BEGINNING FOR ANOTHER POSSIBLE PASS 
708 003334 005301 DEC R1 :DECREMENT THE LOOP COUNTER AND 
70$ 003336 001341 BNE 3$ BRANCH UNTIL ALL DEVICE DATA PRINTED 
710 003340 012737 041172 041170 MOV ACAPSTK, CAPNTR :REINITIALIZE CAPNT 
711 003346 104401 00140 TYPE  , $CRLF :TYPE ANOTHER <CRL 
712 003352 105037 02742 7$: CLRB = CHARCT CLEAR ANY ENARACTER ENTERED DURING PRINTING 
713 003356 000207 RTS PC TEXIT 


4 
CZDRLBO-DR11 GEN NPR INTFC MACRO M1113 22-AUG-80 13:42 PAGE 9 
SUBROUTINE TO FILL ALL TABLE BOARD ENTRIES SEQ 0050 


-SBTTL SUBROUTINE TO FILL ALL TABLE BOARD ENTRIES 


WTTTITITITITITITI TITTLE LLL 
® 


;* THIS SUBROUTINE FILLS ALL TABLE BOARD ENTRIES FOR THE ADDRESSES AND 
;* VECTORS FROM THE VALUES IN 'REGADR' AND 'VECADR’, AND SHOULD BE SET 
;¢ UP BEFORE ENTERING THIS SUBROUTINE. 
-* 


-PeReReReRReeHReeeeeKeKee eee eeeRaKeneeaeateneretereeeeerererere 
001470 FIXTBL: CLR SDEVA : CLEAR THE eevee MASK 
SEC ;SET THE CARRY BIT AND 
001470 SDEVM ROTATE IT INTO oe by FOR 1 BOARD 
000001 002416 #1 ,QTYBRD ;SEE IF ONLY 1 BOARD PRESENT 
$ sKICK OUT IF SO - TABLE DOESN'T — iy FILLING 
002416 QTYBRD,R1 [FILL ALL TABLE BOARD ENTRIES FROM FIRST 
R1 ;DECREMENT SINCE 1ST POSITION IS ALREADY FILLED 
R2 CLEAR INDEX TO SEND POINTER 
000002 8 #2,R3 :PUT 2 IN INDEX H — POINTER 
001470 ROL SDEVM DEVA 
RA=REGADR REDEF INE REGADR AS RA FOR SPACE REASONS 
002420 002420 MOV RA(R2), RACRS) bingy ADDRESS TO yr POSITION AND 
000010 002420 ADD #10, RACR3) 10 FOR NEXT POSITION 
A=VECADR :REDEF INE “VECADR AS VA FOR SPACE REASONS 
002460 002460 MOV oy we if VACR3) SFER VECTOR TO NEXT POSITION AND 
000010 002460 #10,VAC(R3) ADDS 10 FOR NEXT POSITION 
001476 001476 $0000, ‘SDDWOCR3) ;MOVE DEVICE DESCRIPTOR WORD TO NEXT POSITION 
o(R3)+ ;UPDATE INDEX POINTERS 
:DECREMENT THE LOOP COUNTER 


Ri 
1$ :BRANCH BACK IF NOT DONE 
743 003470 000207 : PC sEXIT 
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SUBROUTINE TO LOAD INBUF wiTH AN INCREMENTING PATTERN SEQ 0051 
744 -SBTTL SUBROUTINE TO LOAD INBUF WITH AN INCREMENTING PATTERN 
te seeeeeeereeeeneeeeereeeeeeeeeeetereenetereetenreneeerereereereerees 

;* 
747 Pil THIS SUBROUTINE CLEARS THE FIRST LOCATION OF THE BUFFER AND LOADS 
be hel NUMBERS STARTING WITH 1 INTO THE BUFFER. 
°* 
750 Seeeeeeeeeeeeneeeeedeerereeeeneeeeneenereneneenereteneeeneeeererees 
751 003472 013702 002620 LODBUF: MOV INBUF ,R2 MOVE STARTING ADDRESS OF INBUF TO R2 
52 003476 013703 002624 MOV BUFLEN,R3 ;MOVE LOOP COUNTER TO R3 
753 003502 005203 INC R3 sCORRECT COUNTER 
754 003504 005001 CLR R1 [CLEAR THE LOADING a 
755 003506 010122 18: MOV R1,(R2)+ LOAD NEXT BUFFER WORD 
003510 005201 INC R1 ; INCREMENT THE LOADING COUNTER 
757 003512 005303 DEC R3 SDECREMENT THE LOOP COUNTER AND 
758 003514 001374 BNE 1$ ;BRANCH BACK IF NOT DONE 
759 003516 000207 RTS PC EXIT 
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SUBROUTINE TO LOAD THE CHKBUF wiin’ EVEN @ *S STARTING WIT SEQ 0052 


-SBTTL SUBROUTINE TO LOAD THE CHKBUF WITH EVEN #°S STARTING WITH 0 


RTTTITITITITITITITETI TITTLE 


; THIS SUBROUTINE CLEARS THE FIRST LOCATION OF THE BUFFER AND LOADS 





764 EVEN NUMBERS STARTING WITH 0 INTO THE BUFFER. 

766 -CeReAeeeeeHeeeeeeeeedeeeeereeeeeeereraerareneerereneerereneereeee 

767 003520 013702 02622 CHKBFF: MOV CHKBUF ,R2 ;STARTING ADDRESS OF y Neetienetiee TO R2 

768 003524 013701 002624 MOV roe oR }MOVE LOOP COUNTER TO R 

769 0035 005003 CLR sWIPE oy R 

770 003532 010322 1$: MOV R3,(R2)¢ ;MOVE R3 TO CHKBUF ADDRESS AND INC BY 2 

771 003534 010322 MOV a3, (R2)+ ;MOVE R3 TO NEXT CHKBUF ADDRESS AND INC BY 2 
772 003536 022341 CMP tRS)+, =(R1) ;ADD 2 TO NUMBER FOR BUFFER & atmo 2 FROM LOOP COUNTER 
773 003540 005701 TST SEE IF R1 HAS —o ZERO YET 

774 003542 001373 BNE "s ;BRANCH BACK IF NOT DONE 

775 003544 000207 2$: RTS PC EXIT 
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SUBROUTINE TO CLEAR IE, CHECK ERROR, READY, WCR=0, SEQ 0053 


~SBTTL SUBROUTINE TO CLEAR IE, CHECK ERROR, READY, WCR=0, AND BAR 


PTTTTTITITETTTTITITITITETTTTTITIT TTI TTTTL LLL LLL 


THIS SUBROUTINE HAS THE NEED TO CALL_AN ERROR IN THE TEST. THE ERROR 
1S TO BE LOCATED IN THE TEST JUST AFTER THE JSR CALL. FUTURE USE OF 
THIS SUBROUTINE MUST BE HANDLED AS FOLLOWS: 


JSR PC, INTA i SUBROUTINE CALL 
ERROR +51 RROR CALL 

CONTINUE + SUBROUTINE RETURNS HERE IF NO ERROR 
** 


ig seem Bree Rear Benatar cpuicome ge inion 
003546 042777 000100 176750 INTA: #1E,acsR sCLEAR_IE 
MO BUFLEN,R2 ;BUFFER LENGTH TO R2 
BUFLEN,R2 ;NUMBER OF hee TIMES 2 
CORRECT BAR 
002562 :MOVE RECEIVED DATA TO RCSR 
010000 002562 #MA,RCSR SEE IF WE ARE IN MAINTENANCE MODE 
1$ ‘BRANCH AROUND CABLE TEST IF WE ARE, BIT O WILL BE CLEAR 
000004 002720 #B1T2,00W ;SEE IF THERE IS A CABLE 
1$ ;BRANCH IF NO CABLE 
R2 CABLE MODE TESTING LEAVES BIT 0 OF BAR SET. CHECK ODD ADRS 
176676 002570 : een :MOVE RECEIVED DATA TO RBAR 


e+e ee 2 2 2 8 


002574 
MAKE SURE ape BIT IS CLEAR 

pete ; TIS SET 
176634 002572 aWCR ,RWCR ;MOVE RECEIVED DATA TO RWCR 
2$ :BRANCH TO RETURN WITHOUT pelt Saag PC SO ERROR WILL CALL 
002562 002574 RCSR,ECSR ;DOES CSR CONTAIN WHAT IT SHOU 

2$ ;BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL 
002570 002602 RBAR ,EBAR ;DOES BAR CONTAIN WHAT IT SHOULD 

$ SBRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL 
000002 + eae —" PC RETURN TO AFTER THE ERROR CALL 


WW § We NINN WwO UI NU 
NSO NONNNNNONY 
w a4 


00 
00 
01 
00 
01 
01 
04 
83 

1 
00 
02 
00 
02 
00 
06 





5 
CZDRLBO-DR11 GEN NPR INTFC MACRO M1113  22-AUG-80 13:42 PAGE $3 


SUBROUTINE TO CHECK INBUF AFTER A MAINTENANCE MODE OPERATION SEQ 0054 


812 .SBTTL SUBROUTINE TO CHECK INBUF AFTER A MAINTENANCE MODE OPERATION 
Bi 5 OTT TT TT TTT TTT TTT TTT TTT T TET TTT TTTTT TTT TI TTT TTT 

14 ;* 
815 ;* THIS SUBROUTINE HAS THE NEED TO CALL AN ERROR IN THE TEST AND RETURN 
816 ;* TO THE SUBROUTINE. THE ERROR AND RETURN JSR ARE TO BE LOCATED IN THE 
817 ;* TEST JUST AFTER THE JSR CALL. YOU *MUST* CLEAR LOCATION 'ERRCNT' 
818 3* BEF ORE EXECUTION OF THIS SUBROUTINE, OTHERWISE YOU MAY NOT GET ANY 
819 3* ERRORS PRINTED, OR IF SO, JUST THE DATA WITHOUT THE HEADER. FUTURE 
620 ;* USE OF THIS SUBROUTINE mist BE HANDLED AS FOLLOWS: 

*? 
822 ;* JSR PC ,DATCHK : SUBROUT INE CALL 
823 :* ERROR +201 R CALL 
B24 ;* JSR PC,DATCH2 RETURN TO SUBROUTINE AFTER ERROR RTS 
1H 3 CONTINUE ‘SUBROUTINE RETURNS HERE IF NO ERROR(S) OR WHEN DONE 
*® 

827 een eee ya separ meen canteens: 
828 003716 011637 001362 DATCHK: MOV (SP) ,$TMP1 :SAVE PC RETURN 
829 003722 013702 002622 MOV CHKBUF ,R2 ‘STARTING ADDRESS OF CHECK BUFFER TO R2 
830 003726 013703 002620 MOV INBUF ,R3 STARTING ADDRESS OF IN BUFFER TO R3 
831 003732 005037 002626 CLR LENCHK ‘CLEAR LENGTH C HECK 

2 003736 005237 002626 DATCH1: INC LENCHK sMAKE A COMPARISO 
833 003742 022223 CMP (R2)+,(R3)+ iTS THE DATA CORRECT? 
834 003744 001423 BEQ DATCH? :BRANCH IF OK 
835 003746 013716 001362 MOV STMP1, (SP) sRESTORE ORIGINAL PC RETURN 
836 003752 016237 177776 001364 MOV =2(R2) ,$TMP2 ‘MOVE CHECK BUFFER CONTENTS TO STMP2 
837 003760 010237 001370 MOV RZ, STHPG sMOVE ADDRESS +2 TO $ 
838 003764 162737 000002 001370 SUB #2,$ :CORRECT SO IT SOINTs. TO. ADDRESS CAUSING ERROR 
839 003772 016337 177776 001366 MOV tetas) Perms ;MOVE INPUT BUFFER CONTENTS TO STMP3 
840 004 010337 001372 MOV R3,$T TMPS ADDRESS +2 TO $TMP5 

1 004 162737 000002 001372 SUB #2,STMP5 CORRECT $0 IT POINTS TO ADDRESS CAUSING ERROR 
842 004012 000207 RTS PC :RETURN TO ERROR CALL - PC ON STACK ALREADY POINTS THERE 
B43 004014 023737 002626 002624 DATCH2: CMP LENCHK .BUFLEN *SEE IF THE BUFFER HAS BEEN CHECKED 
B44 004022 001345 BNE ATCH1 *GO BACK FOR ANOTHER TRY IF NOT 
845 004024 013716 001362 MOV STRPT, (SP) “RESTORE PC RETUR 
846 004030 062716 000006 ADD 6, (SP) ‘CORRECT IT SO RETURN IS AFTER THE ERROR CALL 
847 004034 000207 RTS RETURN 
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SUBROUTINE TO RESTORE DR11 INT VECT & SET CPU PRIORITY TO 7. 


858 


5 004036 


004056 


012737 000340 177776 
012777 010000 176452 
005077 176446 

000207 


.SBTTL SUBROUTINE TO RESTORE DR11 INT VECT & SET CPU PRIORITY TO 7. 


WITITITTTITITILITE LETTE TTI TITTLE LLL 


te THIS ROUTINE IS USED IN VARIOUS TESTS TO CLEAR ANY DATA THAT 
:* MAY BE LEFT IN ANY REGISTERS, AND RESTORE CPU PRIORITY TO 7. 


REREREREREREREE EEO H EEE TE TERETE RARE TERRA RARER A TA AH AeA ee Ae eee 

CLENUP: MOV #LEVEL7,PSwW ; RESTORE CPU TO PRIORITY LEVEL 7 
MOV WMA, ACSR ;D0 AN INIT CLEARING WCR, BAR & BOR BY SETTING 
ce es AND CLEARING THE MAINT BIT AND CLEAR THE CSR 


SEQ 0055 
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SUBROUTINE TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA SEQ C056 
859 .SBTTL SUBROUTINE TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA 
oe FRR AAR AAEA RARE AEE E ERATE EAA AAAAARAEAEAEAAEREAAAERERERE RAR AEAE RE 
Ze 
862 7* THIS SUBROUTINE CHECKS 7 re we DESCRIPTOR WORD) FOR THE CABLE 
863 7* BEING IN OR OUT AND SETS BITS 12, 10, 8 AND 6 IN THE EXPECTED DATA 
H¢ ;* LOCATION IF THE CABLE IS OUT. 
* 
866 jteeneaneceegeaererreeerereceertatecentenseasernetsereceeasereeenene 
867 004060 032737 000004 002720 CHKCAB: BIT #B1T2,00W sCHECK FOR CABLE STATUS 
868 004066 001006 BNE 1$ :EXIT IF CABLE DOES EXIST 
869 004070 052737 127000 002574 BIS #127000,ECSR SET BITS 12, 10, 8, 4 & 6 - CABLE DOESN'T EXIST 
870 004076 052737 127000 002540 BIS #127000,BUT ;SET BITS 12, 10, 8, 7 & 6 IN BITS UNDER TEST LOCATION TOO 


871 004104 000207 1$: RTS PC ; RETURN 
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SUBROUTINE TO CHECK CORRECT DATA PATTERN WAS MOVED TO INBUF SEQ 0057 
872 .SBTTL SUBROUTINE TO CHECK CORRECT DATA PATTERN WAS MOVED TO INBUF 
873 seeeeeneeneeeneeeetereneeeeeetedeneeneenreneeeerenereererereeerenee 
874 3: 

875 ;* THIS SUBROUTINE HAS THE NEED TO CALL 2 ERRORS. THE ERRORS ARE TO BE 
876 ;# LOCATED IN THE TEST JUST AFTER THE JSR CALL. FUTURE USE OF THIS 
arr ;* SUBROUTINE MUST BE HANDLED AS FOLLOWS: 
*® 
879 ;* JSR PC ,DATOCK s SUBROUTINE CALL 
880 ;* ERROR +46 ‘ERROR CALL 
881 7° JSR PC, DATOC2 ‘RETURN TO SUBROUTINE AFTER ERROR RTS 
882 ;* ERROR +47 :2ND ERROR CALL 
ty se CONTINUE > SUBROUTINE RETURNS HERE WHEN NE 
** 
885 jreeneceecennnnceerececerececteceesngeanensnsennencesseneeneeneess 
B86 004106 011637 001362 DATOCK: MOV (SP), STMP1 :SAVE PC RETURN 
887 004112 012702 052525 MOV #52525 ,,R2 [DATO NUMBER TO R2 
888 004116 013703 002620 MOV INBUF ,R3 [STARTING ADDRESS OF IN BUFFER TO R3 
889 004122 005037 002626 CLR LENCHK [CLEAR LENGTH CHECK 
890 004126 005237 002626 DATOC1: INC LENCHK ‘MAKE A COMPARISON 
891 004132 020223 CMP R2, (R3)¢ :1$ THE DATA CORRECT? 
892 004134 001415 BEQ DATOC2 :BRANCH IF OK 
893 004136 013716 001362 MOV $TMP1, (SP) ‘MOVE OLD PC RETURN TO STACK 
894 004142 010237 001364 MOV R2,STMP2 [MOVE EXPECTED DATA TO $TMP2 
895 004146 016337 177776 001366 MOV -2(R3),$TMP3 § :MOVE RECEIVED DATA TO STMP3 
896 004154 010337 001370 MOV R3,STMPG sMOVE ADDRESS +2 TO STMP4 
897 004160 162737 000002 001370 SUB #2, STMP4 [CORRECT ADDRESS $O IT POINTS TO ADDRESS CAUSING ERROR 
898 004166 000207 RTS PC *RETURN TO ERROR CAL 
899 004170 023737 002626 002624 DATOC2: CMP LENCHK,BUFLEN ;:SEE IF THE BUFFER NAS BEEN CHECKED 
900 004176 001353 BNE DATOC1 ‘BUFFER CHECKED? 
004200 020223 CMP R2, (R3)+ :CHECK END OF BUFFER + 1 
902 004202 001017 BNE 1$ :BRANCH IF NOT LOADED 
903 0042046 010237 001364 MOV R2,STMP2 [MOVE EXPECTED DATA TO $TMP2 
904 004210 016337 177776 001366 MOV -2(R3),$TMP3  : MOVE RECEIVED DATA 10 STMP3 
905 004216 010337 001370 MOV R3,$TMP4 ‘MOVE ADDRESS +2 TO $TMP4 
906 004222 162737 000002 001370 SUB #2. $TMP4 > CORRECT ADDRESS | s0 tT "POINTS TO ADDRESS CAUSING ERROR 
907 004230 013716 001362 MOV STMP1, (SP) [CORRECT PC RETU 
908 004234 062716 000006 ADD #6, (SP) *POINT TO 2ND ERROR CALL AFTER JSR PC,DATOCK 
909 004240 000207 RTS “RETURN TO ERROR CAL 
910 004242 013716 001362 1$: MOV STRPt. (SP) SRESTORE RETURN ADDR RESS 
911 004246 062716 000010 ADD #10, (SP) ‘POINT TO PROPER RETURN AFTER THE ERROR CALLS 
912 004252 000207 RTS PC EXIT 


—— 
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SUBROUTINE TO CLEAR IE AND HALT IF ERROR IS S SEQ 0058 
3 .SBTTL SUBROUTINE TO CLEAR IE AND HALT IF ERROR IS SET 
914 3 PTT TTT TTT TTT TTT TTT TUTTE TTT TTT TTT TTT TTT TTT TTL 
915 ve 
916 ;* THIS SUBROUTINE HAS THE NEED TO CALL AN ERROR IN THE TEST. THE ERROR 
917 ;* 1S TO BE LOCATED IN THE TEST JUST AFTER THE JSR CALL. FUTURE USE OF 
918 3* THIS SUBROUTINE a) BE HANDLED AS FOLLOWS: 
919 3 JSR UBR GUT INE CALL 
920 :* ERROR e ve TER ROR CAL 
3 3 CONTINUE ‘SUBROUTINE RETURNS HERE IF NO ERROR 
*? 
923 Seatteeeeeeneneeerereret RAAT AAAAAAARARAREAAAARAAEAAAEARARERAREARAAEAREAAE 
924 004254 042777 000100 176242 ERRCHK: BIC #IE,acsR sCLEAR IE 
925 004262 017737 176236 002562 MOV acSR,RCSR :MOVE RECEIVED DATA TO RCSR 
926 004270 013737 002562 002574, MOV RCSR,ECSR ‘MOVE EXPECTED DATA TO ECSR 
927 004276 042737 100000 002574 BIC WER, ECSR ‘CLEAR THE ERROR BIT 
928 004304 052737 000200 002574 BIS #RY,ECSR :SET THE READY BIT 
929 004312 013701 00256 MOV CSR,R1 sMOVE DATA TO R1 FOR CHECKING 
930 004316 012737 000200 001360 MOV #RY,STMPO ‘MOVE EXPECTED DATA TO $TMPO 
931 004324 042701 07757 BIC #77577,R1 :CLEAR ALL BUT THE ERROR AND READY BITS 
932 004330 022701 000200 CMP #RY,R1 :SEE IF ERROR BIT IS CLEAR AND READY IS SET 
933 004334 001002 BNE $ :BRANCH AROUND PC CORRECTION SO ERROR WILL CALL 
934 004336 062716 000002 ADD #2, (SP) CORRECT PC RETURN - DATA OK 
935 004342 000207 1$ RTS sEXIT 
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SUBROUTINE TO GENERATE DEVICE #DDRESS TABLE 


936 .SBTTL SUBROUTINE 70 GENERATE DEVICE ADDRESS TABLE 
937 FRRAAAAAAAAAAAHAERERAERE HERA EA AE EAAEAEAEAAAAAAAARAAAAAAARAAAKAAEARES 
938 ie 
939 ;* THIS SUBROUTINE GENERATES AN ADDRESS TABLE LOCATED AT REGADR STARTING 
940 3 WITH THE BASE DEVICE ADDRESS (CONTENTS OF SBASE) IN STEPS OF 10. 
** 
942 Seeeeeeeeeeeeeeeeeeeereereretereeeeteeteneereeteeeteeeeerereeeettet 
943 004344 012702 002420 DEVADS: MOV #REGADR,R2 ;POINT R2 TO THE DEVICE ADDRESS TABLE 
944 004350 013700 001466 MOV SBASE,R ‘LOAD BASE DEVICE ADDRESS IN RO 
945 004354 012701 000020 MOV #16.,R1 ‘MOVE LOOP COUNTER TO R1 
946 004360 010022 1$: MOV RO, (R2)+ i MOVE DEVICE ADDRESS TO TABLE 
947 004362 062700 000010 ADD #16,R0 POINT RO TO NEXT DEVICE ADDRESS 
948 004366 005301 DEC R1  DECREMENT THE LOOP COUNTER AND 
949 004370 001373 BNE 1$ ;BRANCH IF NOT ALL DONE YET 


950 004372 000207 RTS PC sEXIT 
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+2°' AND "'BPT'’ LOCATIONS 


-SBTTL SUBROUTINE TO RESET THE ‘'.+2°' AND ‘BPT'’ LOCATIONS 


SEQ 0060 


952 3 RARER AAAEAAAAEEAAAAEATEAATAAAAAEAAAAAAAAARARAEAAAAARAAAAARARAAAAARAAAE 
953 :* 
954 ;* THIS SUBROUTINE LOADS ''.+2'' AND "'BPT'’ INTO ALL UNUSED LOCATIONS 
32? ;* BETWEEN 4-776. 
*® 
957 ‘eeeeeeeeeeeeeeeeeeeeteereeeeereneeneeeeeeeeerereenrenreenreeeeetee 
958 004374 012700 004436 BPINIT: MOV #BPTINT,RO :POINT RO T0 , TABLE OF BPT INIT LOCATIONS 
004400 012701 000003 MOV #3,R1 3 SETS OF ''.¢2°' AND ''BPT'’ SETUPS 
004404 012002 1$: MOV (RO) +,R2 “MOVE START ADDRESS TO R2 
961 004406 012003 MOV (RO) +,R3 ‘MOVE END ADDRESS TO R3 
962 004410 010204 MOV 2,R4 sMOVE ADDRESS TO R4 
963 004412 005724 TST (R4)+ s INCREMENT R4 10 PRODUCE THE ‘'.+2°' NUMBER 
964 004414 010422 2$: MOV R4, (R2)+ “MOVE THE NUMBER TO THE LOCATION 
965 004416 012722 000003 MOV #BPT, (R2)+ ;MOVE "yer TO THE NEXT LOCATION 
004422 022424 CMP (R4)+, (RG) + “ADD 4 TO R4 
967 004424 020203 CMP 2,R3 [SEE IF WE HAVE DONE ALL FOR THIS LOCATION 
004426 001372 BNE 2$ ‘BRANCH BACK FOR ANOTHER TRANSFER IF NOT 
969 004430 005301 DEC R1 SDECREMENT R1 
970 004432 001364 BNE 1$ ‘BRANCH BACK IF 3 GROUPS NOT DONE 
97 004434 000207 RTS PC EXIT 
973 004436 000004 000014 000050 BPTINT: .WORD 4,14,50 : ADDRESSES USED TO PUT ‘'.+2°' & ‘'BPT’’ BACK 
974 004444 000174 000254 001000 "WORD 174,254,1000 
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SUBROUTINE TO EXTRACT INFORMATION ABOUT THE D SEQ 0061 
975 -SBTTL SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR11 
44 b WITTITITITILITITITITTLITTLI TITTLE 
97 ;t 
978 3* THIS SUBROUTINE EXTRACTS INFORMATION ABOUT THE DR11 THAT INTERRUPTED 
979 7* AND LOADS THE DATA FOUND INTO THE DEVICE DESCRIPTOR WORD FOR THAT 
oat ;* BOARD. 
& 
982 FRRRAARAEEAAERASEEEERETA AAA AAAAAEEAAAAAAAAAAAAAAEAAEAAARAAERAARAAD 
983 004452 012710 010000 DRGET: MOV WMA, (RO) SET THE MAINTENANCE BIT AND 
984 004456 005010 CLR (ROS SCLEAR THE CSR TO DO AN INIT 
985 004460 016612 000002 MOV 2(SP),(R2) MOVE VECTOR+4 FOR THIS MODULE TO VECTOR LOCATION 
986 004464 012616 MOV (SP)+, (SP) ‘MOVE RETURN OF THIS SUBROUTINE TO ITS PROPER POSITION 
987 004466 logis 000004 SUB #4, (R2) DUMB VECTOR IS WRONG = CORRECT IT 
988 004472 013711 002542 MOV LEVEL, (R1) ;PUT THE PRIORITY LEVEL INTO THE SDDWXX LOCATION 
989 004476 005237 001470 INC SDEVM INDICATE DEVICE EXISTENCE IN DEVICE MAP 
990 004502 005237 002416 INC QTYBRD SINCREMENT DEVICE COUNT 
991 004506 052710 100000 BIS #EIR, (RO) :GO TO EIR TO GET B/W STATE 
992 004512 011037 002564 MOV (RO) ,REIR [MOVE EIR TO REIR 
993 004516 005010 CLR (RO) :GO0 BACK TO CSR 
994 004520 012710 010000 MOV #MA, (RO) +. THE MAINT BIT 
995 004524 005010 CLR (RO) N INIT 
996 004526 032737 000001 002564 BIT #BITO,REIR test. FOR wy? STATE 
997 004534 001003 BNE 1$ BRANCH IF 
998 004536 052711 000001 BIS #B1T0,(R1) 3SET STATE iN hhh DESCRIPTOR WORD 
999 004542 000406 BR 2$ :G0 TO CABLE STATUS TEST 
1000 004544 032737 000400 002564 1S: BIT #N2,REIR CHECK 2/N CYCLE STATE 
1001 004552 001402 BEQ 2$ :BRANCH IF 2 CYCLE 
190¢ 004554 052711 000002 BIS #B1T1,(R1) N CYCLE = SET BIT IN DEVICE DESC 
1003 004560 011037 002562 2$: MOV (RO), RCSR ‘MOVE RECEIVED DATA TO RCSR TO GET CABLE STATUS 
1004 004564 032737 127000 002562 BIT #127000, RCSR :CHECK IF ANY BITS ARE SET - THEY ARE IF NO CABLE 
1005 004572 001015 BNE 3$ ;BRANCH IF NO CABLE 
1006 004574 112710 000004 MOVB #F2,(RO) CABLE IS POSSIBLY IN - Ri FNCT2 
1007 004600 011037 002562 MOV (RO) ,RCSR MOVE RECEIVED DATA TO R 
1008 004604 052710 010000 BIS #MAa, (RO) SET THE MAINTENANCE BIT 
1009 004610 005010 CLR (RO) CLEAR THE CSR TO DO AN INIT 
1010 004612 032737 020900 002562 BIT #AT,RCSR TEST THE ATTN BIT 
1011 004620 001402 BEQ 3$ BRANCH IF NOT SET - NO CABLE 
1012 004622 052711 000004 BIS #B1T2,(R1) ;SET CABLE BIT IN DEVICE DESC 
1013 004626 000207 3$: RTS PC sEXIT 
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SUBROUTINE TO PRINT THE AUTOSIZED BOARD CONFIGURATIONS SEQ 0062 
1014 .SBTTL SUBROUTINE TO PRINT THE AUTOSIZED BOARD CONFIGURATIONS 
1015 PeReeeeKeeeeeeKeeLeeereeereeeeeedeaeeeeKeaKeeeAAeKeaeeReeeeeeenere 
1016 3 
1017 :* THIS SUBROUTINE PRINTS THE BOARD CONFIGURATIONS FOUND BY ASIZE 
*® 
1019 a ee ee ee 
1020 004630 005037 002664 TYPCNF: CLR :CLEAR THE BOARD NUMBER COUNTER 
1021 004634 013705 001470 MOV SOEVRS [GET DEVICE MAP 
1022 004640 012701 002420 MOV #REGADR,R1 “MOVE THE ADDRESS OF THE REGISTER ADDRESS TABLE TO R1 
1023 00464 012702 002460 MOV #VECADR.R2 ‘MOVE THE ADDRESS OF THE VECTOR ADDRESS TABLE TO R2 
1024 004650 00500 CLR R3 CLEAR THE DEVICE DESCRIPTOR ADDRESS POINTER 
1025 004652 104401 034147 TYPE ,NOBUT ‘TYPE: "NO. BOARDS UNDER TEST: 
1026 004656 013746 002416 MOV QTYBRD,-(SP) | :MOVE THE QUANTITY TO THE STACK FOR TYPEOUT 
1027 004662 104405 TYPDS :TYPE THE NUMBER 
1028 104401 034206 TYPE  ,BRVWPC :TYPE THE HEADER 
1029 004670 012700 000020 MOV #16. ,R0 'SET UP LOOP COUNTER FOR 16 BOARDS 
1030 004674 032705 000001 1$: BIT #B1TO,RS ‘DEVICE UNDER TEST 
1031 004700 001466 BEQ 8% ‘BRANCH IF NO 
1032 004702 013746 002664 MOV LOOP ,-(SP) ‘PUT BOARD # ON STACK FOR TYPEOUT 
1033 004706 104405 TYPDS :PRINT BOARD # OT TO 16) 
1034 004710 104401 033773 TYPE  ,SPACE6 YPE 6 SPACE CHARACTERS 
1035 004714 011146 MOV (R1),-(SP) SAVE REGISTER ADDRESS FOR TYPEOUT 
1036 004716 104402 TYPOC PRINT DEVICE REGISTER ADDRESS 
1037 004720 104401 033773 TYPE  ,SPACE6 “TYPE 6 SPACE CHARACTERS 
1038 004724 011246 MOV (R2),-(SP) ‘SAVE VECTOR ADDRESS FOR TYPEOUT 
1039 004726 104403 TYPOS SPRINT VECTOR ADDRESS 
1040 004730 003 .BYTE 3,0 :PRINT 3 DIGITS, LEADING ZEROS SUPPRESSED 
1041 004752 104401 034002 TYPE SPACE? ‘TYPE 7 SPACE CHARACTER 
1042 004736 016337 001476 002720 MOV $DDWO(R3),DDW  :MOVE DEVICE DESCRIPTOR WORD TO DOW 
1043 004744 032737 000001 002720 BIT #B1T0,00W ‘TEST WHICH STATE, BO OR W, FOR THIS BOARD 
1044 004752 001403 BEQ as : G0 PRINT W STATE IF W 
1045 004754 104401 034017 TYPE YPE A 'B' 
1046 004760 000402 BR 8 :60 TO NEXT CHECK 
1047 004762 104401 03402) 2$: TYPE ‘TYPE A ‘w" 
1048 004766 104401 034002 3$: TYPE SPACE? :TYPE 7 SPACE CHARACTERS 
1049 004772 004737 005630 JSR PC ,PNTPRI :PRINT DEVICE PRIORITY 
1050 004776 104401 034002 TYPE SPACE? ‘TYPE 7 SPACE CHARACTERS 
1051 005002 032737 002720 BIT #B1T1,00W STEST 2/N CYCLE STATE 
1052 005010 0014 BEQ 4$ : 60 PRINT rs STATE IF 2 
1053 005012 104401 034034 TYPE N TYPE AN ' 
1054 005016 000402 BR §$ 60 TO NeXT CHECK 
1055 005020 104401 034032 4$: TYPE TWO TYPE A 
1056 005024 104401 034002 5s: TYPE SPACE? ‘TYPE 7 SPACE CHARACTERS 
1057 005030 032737 000004 002720 Bli ieite. DDW ‘TEST CABLE STATE 
1058 005036 001403 BEQ 6$ :G0 PRINT ‘NO’ IF NO CABLE 
1059 005040 104401 034026 TYPE YES [TYPE ‘YES* 
1060 005044 000402 BR 1s :G0 TO LOOP CHECK 
1061 005046 104401 034023 6$: TYPE [TYPE "NO' 
106@ 005052 104401 001405 7$: TYPE SPRL ‘TYPE A <CRLF 
106 005056 005237 002664 8$: INC Loop : INCREMENT BOARD COUNT FOR POSSIBLE NEXT PASS 
1064 005 O22t2e CMP (R1)#,(R2)¢ ‘INCREMENT COUNTERS 
1065 005064 205 ASR R5 ‘SHIFT RS TO THE RIGHT TO MOVE BOARD BIT INTO BIT 0 
1066 005 062703 000002 ADD #2,R3 [ADD 2 TO THE DEVICE DESCRIPFOR WORD POINTER 
1067 005072 005300 DEC RO :DECREMENT THE LOOP COUNTER AND 
1068 005074 001277 BNE 1$ “BRANCH BACK FOR CHECK IF 16 BOARDS NOT DONE 
1069 005076 104401 001405 TYPE  ,S$CRLF ‘TYPE ANOTHER <CRLF> 
1070 005102 000207 RTS PC SEXIT 
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SEQ 0063 
-SBTTL SUBROUTINE TO CHECK FOR LOCATION BELONGING TO A DR11 
FRAAAAAAERARERAAARAEAAER AAA AAAAAAAAAAAAAEAEAEAARATAAAATARAAAAAEAEAE 
;* 
;* THIS SUBROUTINE CHECKS FOR THE LOCATION BELONGING TO A DR11. 
* 
[eeeeeeeeeeeeneereeereereeereerereneeeteeeeereneeeneeretereeeeeeet 
CHK4DR: MOV WLEVEL7,LEVEL ;MOVE PRIORITY 7 TO LEVEL 
MOV #LEVELS,R3 MOVE ADDRESS OF PRIORITY LEVELS TO R3 
MOV #4 RG 300 4 PRIORITY CHECKS 
1$: MOV #400, TIME ;SET UP WAIT LOOP COUNTER 
MOV #MA, (RO) ;SET THE MAINTENANCE BIT AND 
CLR (RO) :CLEAR TO POSSIBLY DO AN INIT 
MOV BPTVCT,STMP1 ;SAVE BPT TRAP VECTOR 
MOV #3$,BPTVCT : INTERRUPTS TO 3$ 
MOV (R3)+,PSW 3SET CPU PRIORITY TO NEXT LEVEL 
NOP KILL A LITTLE T 
MOV #IE+F2+GO,(RO) ;SET IE, FNCT2 AND GO ATTEMPTING ANOTHER INTERRUPT 
28: DEC TIME ;DECREMENT TIME 
BNE 2$ ;BRANCH BACK UNTIL ZERO 
MOV #LEVEL7,PSW SET CPU PRIORITY BACK TO 7 
MOV STMP1,BPTVCT RESTORE BPT TRAP VECTOR 
SUB #40,LEVEL ;PUT LOCATION ‘LEVEL’ AT NEXT PRIORITY - INTERRUPT FAILED 
DEC RG ;DECREMENT LOOP COUNTER 
BNE 1$ ;BRANCH BACK IF NOT ALL PRIORITY LEVELS CHECKED YET 
BR 4% EXIT = THIS LOCATION DOESN'T BELONG TO A DR11 
3$: MOV #LEVEL7,PSW yAHAH - THIS *1S* A DR11 = SET CPU PRIORITY BACK TO 7 
MOV STMP1 ,BPTVCT sRESTORE BPT TRAP VECTOR 
MOV 10(SP) ,6(SP) ;MOVE THIS SUBROUTINE'S RETURN UP ONE SPOT ON STACK 
MOV (SP) ,10(SP) sMOVE TRAP ADDRESS TO RETURN'S OLD LOCATION 
ADD #6,SP 3KICK GARBAGE’ OFF STACK = GOT TO KEEP IT CLEAN 
BR 5$ ;BRANCH TO KICK OUT 
4$: ADD #12, (SP) :CORRECT RETURN TO NOT DO DR11 SETUP 
5$: RTS PC sKICK OUT 
LEVEL6,LEVELS ;PRIORITY LEVELS TO LOAD INTO THE PSW 


LEVELS: .WORD 
WORD LEVEL4,LEVEL3 
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-SBTTL SUBROUTINE TO AUTO SIZE DR11 BOARD CONFIGURATION 





ioe seeeenceneeteneereereeereceeeeenereneeeeteereneeereneereereeeeerers 
11 3* 
1110 ie THIS SUBROUTINE AUTOSIZES THE BOARD CONFIGURATION AND CALLS FOR THE 
1111 * PRINTING OF THE CONFIGURATION IF BIT 12 OF THE SWITCH REGISTER IS 
1316 i* CLEAR. 
*® 
1116 Seeeeeeeeeeneneeeeereeeereerererereeeeeereeeeeereereeeeeteeteeetet 
1115 005274 012700 001476 ASIZE: MOV #$DDW0,RO sMOVE ADDRESS OF FIRST DEVICE DESCRIPTOR WORD TO RO 
1116 905 012701 000020 MOV #16. ,R1 [CLEAR 16 WORDS OUT OF THE DICTIONARY 
1117 005304 005020 1$: CLR (RO) + ‘CLEAR THE WORD = SORRY CAN'T LOOK IT UP ANY MORE 
1118 005306 00 *301 DEC 1 SDECREMENT THE LOOP COUNTER AND 
1119 005310 00i575 BNE 1$ :BRANCH BACK IF NOT DONE Y 
1120 005312 004737 00437 JSR PC ,BPINIT *GO RESET THE ''.42° AND eer" LOCATIONS 
1121 005316 004737 004344 JSR PC .DEVADS [GENERATE DEVICE ADDRESS TABLE 
1 : 005322 005037 002416 CLR QT YBRD [CLEAR DEVICE COUNT 
1 005326 005037 001470 CLR SDEVM CLEAR DEVICE MAP 
1124 005332 013737 267 MOV TOVECT,OLDPC1 ;SAVE TIMEOUT VECT 
1125 005340 012737 005416 000004 MOV #3$, TOVECT [SET TIMEOUT ‘POINTER TO 3$ 
1126 005346 013737 06 002676 MOV TMOPSW,OLDPS1 :SAVE TIMEOUT PS 
1127 005354 012737 340 000006 MOV mLEVEL?, TMOPSW :CPU PRIORITY TO 7 
1128 005362 012700 172604 MOV #172604 ,,RO ‘POINT RO TO UNIT #16 CSR ADDRESS LOCATION 
1129 005366 012701 001534 MOV *s00u15. RI [LOAD DEVICE DESC ADDRESS 
1130 005372 012702 002516 MOV #VECADR+36,R2  :POINT R2 TO UNIT #16 VECTOR ADDRESS LOCATION 
1131 005376 012705 000020 MOV #16. ,R5 :DO 16 BOARDS 
1132 005402 005010 2$: CLR (RO) [CHECK FOR REGISTER EXISTENCE 
1133 005404 004737 005104 JSR PC, CHK4DR :G0 CHECK FOR A DR11 AT THIS LOCATION IF IT DOES 
1134 905410 737 004452 JSR PC .DRGET :60 EXTRACT INFO FROM THE DR11 
1135 005414 02 BR 4$ ANCH OVER THE STACK CORRECTION 
1136 005416 062706 000004 3$: ADD 4#4,SP ‘CORRECT STACK AFTER TIMEOUT 
1137 005422 162700 000010 i$: SUB #16,R0 ‘POINT RO TO NEXT DEVICE ADDRESS 
1138 005426 024742 CMP -(R1),-(R2) [POINT R1 AND R2 TO NEXT DEVICE & VECTOR LOCATIONS 
1139 005430 005305 DEC RS *DECREMENT LOOP COUNTER 
1140 005432 001403 BEQ 5$ SEXIT IF ALL DONE WITH 16 BOARDS 
1141 005434 006337 001470 ASL SDEVM :ADJUST DEVICE MAP FOR NEXT UNIT CHECK 
1142 005440 000760 BR 2$ O CHECK NEXT LOCATION 
1143 005442 013737 002676 000006 5S: MOV OLDPS1, TMOPSW i OESTORE TIMEOUT PS 
1144 005450 013737 002674 000004 MOV OLDPC1, TOVECT :RESTOPE TIMEOUT VE 
1145 005456 032777 010000 173654 BIT #B1T12,aSWR [CHECK FOR CONFIGURATION PRINT 
1146 005464 001005 BNE 6% :BRANCH IF PRINT NOT REQUESTED 
1147 005466 005737 002416 TST QTYBRD ?SEE IF ANY BOARDS WERE FOUND 
1148 005472 001402 BEG 6$ [BRANCH TO RETURN IF NOT - NO BOARD INFO TO PRINT 
116 54 PC, TYPCNF :G0, TYPE THE BOARD CONFIGURATIONS 
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-SBTTL SUBROUTINE TO GENERATE VECTOR ADDRESS TABLE 


WITTITITIITITILITITTT IIIT TTL LiL LLL 


THIS SUBROUTINE GENERATES THE VECTOR ADDRESS TABLE. 


: MOV 


ee eager pe dace a 8 OIE Ep peer aye ee + ae ar ama ane tat te 


;GET LOCATION OF VECTOR TABLE 
ECTOR 


:COPY BASE V 


;CLEAR UPPER BYTE 

D0 16 VECTORS 

;PUT VECTOR ADDRESS IN TABLE 
POINT RO TO NEXT VECTOR ADDRESS 
;DECREMENT LOOP COUNTER 


i RANCH IF NOT ALL DONE YET 
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ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS SEQ 0066 


-SBTTL ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 


$ 


1167 FRRAAAARRRAAAAEREEAAA RARER EAA AAA A AREER AE AE AEH E AERA AANA RAAAATEEAES 

1168 : 

119? 7* THIS IS THE ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 
** 

1171 [eeteeeeeeeeeneeeeeereteeeeeeteereeeeeeeeeteereeereneteeeeeeeeeee 

16 005536 012737 000340 177776 CATCH: MOV #LEVEL7,PSW ;REESTABLISH CPU PRIORITY AT 7 

1173 005544 012637 002544 MOV (SP)+,BDVECT :GET ADDRESS OF TRAP VECTOR + 4 

1174 005550 012637 002676 MOV (SP)+,OLDPS1 sSAVE PS 

1175 005554 012637 002700 MOV (S$P)+,OLOPC2 SAVE PC OF ADDRESS OF INSTRUCTION CAUSING TRAP 

1176 005560 012637 002702 MOV (SP)+,OLDPS2 SAVE 2ND PS 

1177 005564 162737 000004 002544 SUB #4 ,BOVECT sADJUST TO POINT TO TRAP ADDRESS 

1178 005572 104050 ERROR + sUNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW 

1179 005574 013746 002702 MOV OLDPS2,-(SF) sRESTORE PS RETURN ON STACK 

1180 005600 013746 002700 MOV OLDPC2,-(SP) ;RESTORE PC RETURN ON STACK 

1181 005604 000002 RTI : RETURN 
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SUBROUTINE TO PRINT STATE OF A DDW BIT SEQ 0067 
1182 .SBTTL SUBROUTINE TO PRINT STATE OF A DDW BIT ‘ 
1387 FRRRAAAARREAAAERERAAEARAEAAERAA AAA A RARER AAAARAAAAAAARAAAAAAA EEE NES 
11 3 
1185 ;* THIS SUBROUTINE PRINTS THE STATE OF THE BIT IN THE DDW THAT WAS 
1138 ;* PRELOADED INTO BITTST. 
* 
1188 PererrerrerTTeTerrrrrTrrTTTTTTTTTITITTT TIT T LITT Ti Li titi titi iiiiii iy 
1189 005606 005046 PSTATE: CLR -(SP) :SHOW STATE AS ZERO INITIALLY 
1190 005610 033737 002712 002720 BIT BITTST,DDW sCHECK STATE OF BIT IN DDW USING BIT SET IN BITTST 
1191 005616 001401 BEQ 1$ ;BRANCH IF NOT SET 
1192 005620 005216 INC (SP) :SHOW A '1' STATE FOR THAT BIT 
1193 005622 104403 1$: TYPOS ; TYPE THE STATE, LEADING ZEROS SUPPRESSED 
1194 005624 001 000 -—BYTE 1,0 :TYPE 1 CHARACTER, SUPPRESS LEADING ZEROS 
1195 005626 000207 RTS PC EXIT 
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SUBROUTINE TO PRINT DEVICE PRIORITY SEQ 0068 
1196 .SBTTL SUBROUTINE 70 PRINT DEVICE PRIORITY 
1197 FRRRAAAAERAERAAA RATA E AAA AAA AAA ARAAEAAAAAERARAEERAERERARARAAAR HERE 
1198 3* 
Bb 7* THIS SUBROUTINE PRINTS THE DEVICE PRIORITY 
°% 
1201 Seeeeeeeeeeeeeeeereeeeetedereeereneeenererereeeteeetererererererete 
120¢ 005630 013746 002720 PNTPRI: MOV DDW,-(SP) sPUT DEVICE DESCRIPTOR WORD ON STACK 
1203 0056 006216 ASR (SPS :SHIFT RIGHT STACK LOCATION 5 PLACES 
1204 0056 006216 ASR (SP) 
1205 005 006216 ASR (SP) 
1206 005642 006216 ASR (SP) 
1207 005644 006216 ASR (SP) 
1208 005646 042716 177770 BIC #177770, (SP) :MASK TO GET PRIORITY 
1209 005652 104403 TYPOS :TYPE THE DEVICE PRIORITY 
1210 005654 001 000 BYTE 1,0 sTYPE 1 CHARACTER, SUPPRESS LEADING ZEROS 
1211 005656 000207 RTS PC sEXIT 
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DRLB 
ITIALIZE THE COMMON TAGS SUBROUTINE SEQ 0069 
1212 .SBTTL INITIALIZE THE COMMON TAGS SUBROUTINE 
aS [eeeereecentereeneereeeeteeeeeenereeeeeneenerereereetereereereerere 
1214 
1215 ;* THIS SUBROUTINE [WITIALIZES THE INTERRUPT VECTORS. USE IS AS FOLLOWS: 
1216 ;* MOV #STACK,SP TIALIZE THE STA 
St 4 ;* JSR PC, SETTUP s UML THE SUBROUTINE. 
** 
1219 eeeeeeeenenereterereeererererererereneererenereterenereeenentereet 
1220 005660 011637 001360 SETTUP: MOV (SP) ,STMPO : SAVE RETURN ADDRESS 
1221 :;CLEAR THE COMMON TAGS (SCHTAG) A REA 
005664 012706 001300 MOV #SCRT AG, R6 ::FIRST LOCATION TO BE CLEARED 
005670 005026 190$: CLR (R6)+ ::CLEAR MEMORY LOCATION 
005672 022706 001340 CMP #SWR,R6 ;; DONE? 
005676 001374 BNE 100s ::LOOP BACK IF NO 
005700 012706 001300 MOV TACK, SP ::SETUP THE STACK POINTER 
sr INITIALIZE A re VECTORS 
005704 012737 026352 000020 MOV #SSCOPE ,a#IOTVEC;;: 10T VECTOR FOR SCOPE ROUTINE 
005712 012737 000340 000022 MOV #340, a#lOTVEC+2 : ;;LEVEL 7 
005720 012737 027564 000030 MOV #SERROR, QgENTVEC: ZEN VECTOR FOR ERROR ROUTINE 
005726 012737 000340 000032 MOV #340 ,a#EMTVEC+2 ::LEVEL 7 
005734 012737 026264 000034 MOV #STRAP VATTRAPVEC:: TRAP VECTOR FOR TRAP CALLS 
005742 012737 000340 000036 MOV #340, a#TRAPVEC+2:LEVEL 7 
005750 012737 030510 000024 MOV #SPURDN, AFPURVEC: : POWER FAILURE VECTOR 
005756 012737 000340 000026 MOV #340, a#PWRVEC+2 ::LEVEL 7 
005764 013737 023302 023274 MOV SENDCT, SEOPCT : SETUP END-OF -PROGRAM COUNTER 
005772 005037 001376 CLR SESCAPE 3 CLEAR THE ESCAPE ON ERROR ADDRESS 
005776 112737 000001 001315 MOVB #1, SERMAX LLOW ONE ERROR PER TEST 
006004 012737 011246 001306 MOV erat sg-m Pane H INITIALIZE THE LOOP ADDRESS FOR SCOPE 
006012 012737 011246 001310 MOV #TST1¢2,$LPERR ;;SETUP THE ERROR LOOP ADDRESS 
:;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
EQUAL TO A ‘'=1'', SETUP FOR A SOF TWARE suirCn REGISTER. 
006020 013746 000004 MOV a#ERRVEC,-(SP) 23 SAVE ERROR VECT 
006024 012737 006060 000004 MOV #64% ,a#ERRVEC :3SET UP ERROR ¥ vec TOR 
006032 012737 177570 001340 MOV #DSWR, SUR SETUP FOR A HARDWARE SWICH REGISTER 
006940 012737 177570 001342 MOV #DDISP, DISPLAY AND A HARDWARE DISPLAY REGISTER 
$ 022777 177777 173264 CMP #-1,aSUR 3 TRY TO REFERENCE HARDWARE SWR 
006054 001011 BNE 668 ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
3 3 AND THE WARDUARE SWR 1S NOT = -1 
006056 000402 BR 65$ ::BRANCH IF NO TIMEOUT 
062706 000004 64$: ADD #4,SP :CLEAN UP STACK AFTER INTERRUPT 
006064 012737 900176 001340 65$: MOV #SWREG SUR  EPOINT TO SOFTWARE SwWR 
006072 012737 000174 001342 MOV #DISPREG DISPLAY 
006100 012637 000004 66$: MOV (SP) +, a#ERRVEC ::RESTORE ERROR VECTOR 
006104 005037 001416 CLR SPASS ;CLEAR § COUNT 
006110 132737 000200 001433 BITB #APTSIZE ,SENVM 33 TEST USER’ SIZE UNDER APT 
006116 001403 BEQ 67$ sYES,USE NON-APT SWITCH 
606120 012737 001434 001340 we MOV #SSWREG, SWR >:NO,USE APT SWITCH REGISTER 
1222 006126 013746 001360 MOV STMPO,-(SP) :PUT RETURN ADDRESS ON STACK AND 
1223 006132 000207 RTS PC :RETURN TO THE CALLING ROUTINE 
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MEMORY MANAGEMENT AND LOCATION CHECK SUBROUTINE SEQ 0070 


1224 .SBTTL MEMORY MANAGEMENT AND LOCATION CHECK SUBROUTINE 
1225 ; Reeeeeeeeeeeneeeeeeedeedenereeeeneenenereerereeereeeereeeeerereeee 
1226 se 
1227 ;t THIS SUBROUTINE CHECKS FOR MEMORY MANAGEMENT EXISTENCE AND WHETHER OR 
\eee ;* NOT A LOCATION IN UPPER MEMORY EXISTS. 
*@ 
1230 Seeeneeeeneneneeeeeereeereeeeteeeerenereneeneenereneeertecereretet 
1231 006134 005737 002714 TSTMM: TST MEMGMT sTEST TO SEE IF MEMORY MANAGEMENT EXISTS 
1232 006140 001440 BEQ 4$ BRANCH IF NOT 
1233 006142 012737 000401 006152 MOV #CY*G0,1$ SET UP BIT NTEST D 
1234 006150 040227 BIC R2,(PC)+ ;TEST TO SEE IF BOTH THE CYCLE AND GO BITS ARE SET 
1235 006152 000401 18: .WORD CY+GO LOCATION TO STORE THE CYCLE AND GO BT S 
1236 006154 001032 BNE 4$ KICK OUT IF CYCLE AND/OR GO ARE CLEAR 
1237 006156 032737 000060 002574 BIT #X6+X7,ECSR ;SEE IF XBA16 OR XBA17 WERE SET IN EXPECTED DATA 
1238 006164 001426 BEQ 4$ ;BRANCH OUT IF NOT 
1239 006166 032737 000040 002574 BIT #X7,ECSR seee IF XBA17 IS SET 
1240 006174 001005 BNE 2$ Q CHECK STATUS OF XBA16 IF S 
1241 006176 132737 000001 002715 BITB #BITO,MEMGMT+1 E IF 200000+NOCARE WAS FOUND. TO EXIST = IF NOT, 
1242 006204 001420 BEQ 5$ ‘60 SET EXPECTED ERROR AND NEX BITS AND CHECK FOR ERROR 
1243 006206 000415 BR 4$ ;BRANCH OUT IF LOCATION EXISTS 
1244 006210 032737 000020 002574 2%: BIT #X6,ECSR 7SEE IF XBA16 IS SET 
1245 006216 001005 BNE 3$ ;BRANCH TO CHECK 600000+NOCARE IF SET 
1246 006220 132737 000002 002715 BITB #BIT1,MEMGMT+1 ;SEE IF 400000+NOCARE WAS FOUND TO EXIST - IF NOT, 
1247 006226 001407 BEQ 5$ :GO SET EXPECTED ERROR AND NEX BITS AND CHECK FOR ERROR 
1248 0062 04 BR 4$ ;BRANCH OUT IF LOCATION EXISTS 
1249 006232 132737 000006 002715 35: BITB #BIT2,MEMGMT+1 ;SEE IF 600000+NOCARE WAS FOUND TO EXIST - IF NO 
1250 006240 001402 BEQ 5$ :G0 SET EXPECTED ERROR AND NEX BiTS AND CHECK MOR “ERROR 
1251 006242 062716 000002 4$: ADD #2, (SP) ; CORRECT Pe RETURN 
1252 006246 000207 5$: RTS PC :KICK OUT 
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SEQ 0071 
-SBTTL BIT PATTERN 


MARRBRARAALASLALARAAASLARAAAAAARAAAS ARR SA ASA A RRA RADA ARRAS ARR R RADA AAAS 
-* 


8 THIS IS A BIT PATTERN TABLE THAT CAN BE USED TO CHECK ANY LOCATION FOR 
ie ALL COMBINATIONS OF STUCK AND/OR SHORTED BITS. 
-* 
REAR ERAARAEAAREREHAEAAAATAATETAAAAERAAAAAAAAEAAERAARAARARARAAAAAAAREE 
RADIX 2 THIS ENABLES YOU TO SEE THE PATTERNS IN BINARY 
PATRNS: .WORD 11117171117111111 SALL SET BITS 
“WORD 0000000000000000 ALL CLEAR BITS 
“WORD 0101010101010101 EVEN BITS SET, ODD BITS CLEAR 
WORD 1010101010101010 :0DD BITS SET, EVEN BITS CLEAR 
“WORD 0011001100110011 :PAIRS OF BITS SET 
WORD 0000111100001111 GROUPS OF 4 BITS SET 
“WORD 0000000011111111 UPPER BYTE CLEAR, LOWER BYTE SET 


«RADIX 8 sTHIS RETURNS MODE BACK TO OCTAL 
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EXPECTED DATA TABLE FOR CSR CHECK TEST 3 SEQ 0072 


1270 -SBTTL EXPECTED DATA TABLE FOR CSR CHECK TEST 30 
4a peeeeeeeeeaeeeeeedereeeeedeneeeeneneeereedeeeereneeerereneeeneere 
1 3* 
1273 ;* THE ‘EXPAT’ TABLE IS USED TO CHECK THE CONTENTS OF THE CSR AFTER SETTING 
iste 3* THE BITS IN THE CSR. 

*® 
1399 Seeeeeeeeeneeeneeereeeeerereeerenereeeeeeeererrereeeerenererereetts 
1 
1278 006266 MAICLR: ; X= 0 1 2 3 4 5 6 7 
1279 006266 000200 000000 001202 «WORD 0200,0000,1202,1002,122204,122204,123206,123206 ;CSR OOOOOX EXPECTED 
1280 006306 004210 004010 005212 sWORD 4210,4010,5212,5012,126214,126214,127216,127216 ;CSR QOOOOIX EXPECTED 
1281 006326 000720 000020 001222 WORD 0220,0020,1222,1022,122224,122224,123226,123226 ;:CSR O0002X EXPECTED 
1282 006346 004230 004030 005232 WORD 4230,4030,5232,5032,126234,126234,127236,127236 ;CSR QOOO3X EXPECTED 
1283 006366 000240 000040 001242 WORD 0240,0040,1242,1042,122244,122244,123246,123246 ;CSR 0 EXPECTED 
1284 006406 004250 004050 005252 -WORD 46250,4050,5252,5052,126254,126254,127256,127256 ;CSR QOOOSX EXPECTED 
1285 006426 000260 000060 001262 -WORD 0260,0060,1262,1062,122264,122264,123266,123266 ;CSR QO006X EXPECTED 
1286 006446 004270 004070 005272 -WORD 6270,4070,5272,5072,126274,126274,127276,127276 ;CSR QOOOO7X EXPECTED 
1287 006466 000300 0001 001302 -WORD 0300,0100,1302,1102, 122304 ,0221(4,123306,023106 ;CSR OOO1OX EXPECTED 
1288 0065 004310 004110 005312 WORD 4310,4110,5312,5112,126314,026114,127316,027116 ;CSR O00011X EXPECTED 
1289 006526 000320 000120 001322 sWORD 0320,0120,1322,1122,122324,022124,123326,023126 ;CSR 00012 EXPECTED 
1290 006546 004330 004130 005332 WORD 4330,4150,5332,5132,126334,026134,127336,027136 ;CSR 13X EXPECTED 
1291 006566 000340 000140 001342 -WORD 0340,0140,1342,1142,122344,022144,123346,023146 ;CSR 00014X EXPECTED 
1292 006606 004350 004150 005352 WORD 46350,4150,5352,5152, 126354,026154,127356,027156 ;CSR OOO15X EXPECTED 
1293 006626 000360 160 001362 -WORD 0360,0160,1362,1162,122364,022164,123366.023166 ;CSR O00016X EXPECTED 
1294 006646 004370 004170 005372 WORD 4370,4170,5372,5172,126374,026174,127376,027176 ;CSR 00017X EXPECTED 
1295 006666 0200 001602 -WORD  0600,0200,1602,1202,122604,122604,123606,123606 ;:CSR O00040X EXPECTED 
1296 006706 004610 004210 005612 WORD 4610,4210,5612,5212,126614,126614,127616,127616 ;CSR 00041X EXPECTED 
3.44 076726 900668 $0086 001622 WORD 06 0 0980 1085 S96 «1 ecOgh 1 SeGeh - 133680. 1936 6 ;CSR 00042xX EXPECTED 
1298 006746 004630 004230 005632 WORD 4630,4230,56352,5232, 126654, 126634,127656,127656 ;CS X EXPECTED 
1299 006766 0 000240 001642 WORD  0640,0240,1642,1242,122644,122644,123646,123646 ;CSR 00044X EXPECTED 
1300 007006 004650 004250 005652 WORD  4650,4250,5652,5252, 126654, 126654,127656,127656 ;CSR 00045X EXPECTED 
1301 007026 000260 001662 WORD 0660,0260,1662,1262,122664,122664,123666,123666 ;CSR 00046X EXPECTED 
1302 007046 004670 4270 005672 WORD »4270,5672,5272, 126674, 126674,127676,127676 CSR 00047X EXPECTED 
1303 007066 000700 000300 001702 WORD 0700,0300,1702,1302,122704,022304,123706,023306 ;CSR OO0SOX EXPECTED 
1304 007106 004710 004310 005712 WORD 4710,4310,5712,5312,126714,026314,127716,027316 ;CSR OO051X EXPECTED 
1305 007126 000720 000320 001722 WORD 0720,0320,1722,1322,122724,922324,123726,023326 ;CSR 00052X EXPECTED 
1306 007146 004730 004330 005732 WORD 4730,4330,5732,5332,126734,026354,127736,027336 ;CSR 000535X EXPECTED 
1307 00 000740 000340 001742 WORD 0740,0340,1742,1342,122744 ,022344,123746,0233 sCSR 00054X EXPECTED 
1308 007206 004750 004350 005752 WORD 4750,4350,5752,5352, 126754 ,026354,127756,027356 ;CSR OO055X EXPECTED 
1309 007226 000760 000360 001762 -WORD 0760,0360,1762,1362,122764,022364,123766,023366 ;CSR OO0056X EXPECTED 
1310 007246 004770 004370 005772 WORD 4770,4370,5772,5372, 126774 ,026374,127776,027376 ;CSR 00057X EXPECTED 


—_————--— --- - — — 
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-SBTTL MAIN PROGRAM = INITIALIZATION ROUTINES 


¥ 
o 


Ve FRRAAAAAAAAAAAAAEAAA AERA RARER AAA AEA AEAAARERAAAERERARAAARAAAARAE EEE 

1348 $ 

1308 7MAIN PROGRAM - INITIALIZATION ROUTINES 

1351 Seeeeteeeeneneeenereneeeerereereeeeeeeneeeenereeeeeenereererteneee 

1352 

1353 010266 005037 002672 START1: CLR MANSIZE :CLEAR THE MANSIZE SO WE WILL AUTOSIZE 
1354 010272 005037 001416 START: CLR SPASS :CLEAR $PASS 

1355 010276 005037 001420 CLR SPASS+2 CLEAR SPASS#2 

1356 010302 005037 001412 CLR SFATAL :CLEAR ERROR NO. 

1357 010306 005037 001410 CLR SMSGTYP ;CLEAR MESSAGE TYPE 

1358 010312 005037 001414 CLR STESTN sCLEAR TEST NO. 

1359 010316 005037 001422 CLR SDEVCT ;CLEAR DEVICE COUNT 

1360 010322 005037 001424 CLR SUNIT ;CLEAR UNIT NUMBER 

1361 010326 012737 000006 000004 MOV #TOVECT+2, TOVECT; INITIALIZE TIMEOUT VECTORS TO 6 

1362 010334 012737 000003 000006 MOV #BPT, TMOPSW CATCHER ROUTINE 

1363 010342 012706 001300 MOV #STACK,SP s INITIALIZE THE STACK 

1364 010346 004737 005660 JSR PC,SETTUP :G0 TO THE SETUP ROUTINE TO INITIALIZE VECTORS 
1365 010352 005037 001424 CLR SUNIT ;CLEAR SUNIT 

1366 010356 005037 001422 CLR SDEVCT CLEAR $DEVCT 

1367 010362 005037 0014 CLR STESTN :CLEAR STESTN 

1368 010366 005037 002710 CLR EOPLOC ;CLEAR EOPLOC 

1369 010372 132737 000001 001432 BITB #BITO,SENV sCHECK IF ON APT 

1370 010400 1404 BEQ 3BR IF NOT APT 

1371 010402 132737 000200 001433 B1TB #BIT7,SENVM ;DID APT SIZE 

1372 010410 001007 BNE BR, IF APT SIZED 

1 Bige is 2737 #177777 002672 1$: CMP #-1,MANSIZE sWAS CONFIGURATION SET UP IN MULT. BOARD ROUTINE? 
1374 01042 1422 BEQ BEGIN IF YES, SKIP SELF-SIZIN 

1375 010422 004737 005274 JSR PC,ASIZE sAUTOMATICALLY SIZE FOR BOARD CONFIGURATION 
1376 010426 000417 BR BEGIN BRANCH 

1377 010430 005037 002416 2$: CLR QTYBRD :CLEAR DEVICE CNT 

1378 010434 013702 001470 MOV SDEVM,R2 sMOVE DEVICE MAP TO R2 

1379 010440 005702 3$: TST R2 ;TEST MSB OF DEVICE MAP 

1380 010442 100002 BPL 4$ 7BR, IF MSB IS ZERO 

1381 010444 005237 002416 INC QTYBRD ; INCREMENT DEVICE COUNT, IF MSB=1 

1382 010450 000241 4$: CLC sCLEAR THE CARRY BIT FOR THE ROL 

1383 010452 006102 ROL R2 ;SHIFT NEXT BIT INTO MSB POSITION 

1384 010454 001371 BNE 3$ s CONTINUE CHECKING SDEVM, IF MORE BITS SET 
1385 010456 004737 004344 JSR PC ,DEVADS ;GENERATE DEVICE ADDRESS TABLE 

1386 010462 004737 005502 JSR PC,VCTADS :GENERATE VECTOR ADDRESS TABLE 
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DETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE SEQ 0075 
1387 -SBTTL DETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE 
1388 010466 005737 001416 BEGIN: TST SPASS sSEE IF THIS 1S THE FIRST PASS 
1389 010472 001145 BNE BEGINI ;BRAN CH IF NOT 
1390 010474 005737 001420 TST SPASS#2 SEE IF ippeR LOCATION HAS BEEN SET 
1391 010500 001 142 BNE BEGIN! ‘BRANCH IF NOT 
133g 010502 30308 002714 CLR MEMGAT et 1. R THE MEMORY MANAGEMENT FLAG 
1393 010506 013737 000004 002674 MOV TOVECT,OLDPC1 AVE TIMEOUT VECTOR 
1394 010514 12737 010750 000004 MOV #3$, TOVECT ‘TIMEOUT VECTOR TO 3$ 
1395 Hes 74 013737 002676 MOV TMOPSW OLDPS1 i SAVE TIMEOUT P 
1396 010530 012737 000340 000006 MOV #LEVEL?, THOPSW :PS TIMEOUT TO PRIORITY 7 
1397 010536 005737 177572 TST MMR le TEST FOR THE PRESENCE oF MEMORY MANAGEMENT 
1398 010542 105237 002714 INCB MEMG : INCREMENT FLAG SHOWING MEMORY MANAGEMENT EXISTS 
1399 010546 012737 077406 172304 MOV #57006 KIPDR? sMAKE KIPDR2 a $f te a 
1400 010554 016737 077406 172324 MOV #77406,.KDPDR2 ;:MAKE KDPDR2 RESIDEN 
1401 010562 013737 000250 002700 MOV MMVECT,OLDPC2 3 SAVE MEMORY RE SACERENT VECTOR 
1402 010570 012737 Bags 000250 MOV #1$, MMVECT sMEMORY MANAGEMENT VECTOR TO 1¢ 
1403 010576 013737 000252 002702 MOV MMPS ,OLDPS2 [SAVE MEMORY MANAGEMENT PS 
1404 010604 012737 000340 000252 MOV #LEVEL?, MMPS MEMORY MANAGEMENT PS TO PRIORITY 7 
1405 010612 005237 177572 INC MMRO STURN ON MEMORY MANAGEMENT 
1406 010616 012737 002400 172344 MOV #2400 ,KIPAR2 SET UP KIPAR2 TO ACCESS LOCATION 240000+BITS 12-0 OF NOCARE 
1407 010624 012737 00 172364 MOV #2400.KDPAR2 §;SET UP KDPAR2 TO ACCESS AhOCATION 240000+¢BITS 12-0 OF NOCARE 
1408 010632 005737 052414 TST NOCARE ;SEE IF BITS 12-0 OF NOCARE ADRS #240000 EXISTS 
1409 010636 152737 000001 002715 BISB #BITO,MEMGMT+1 ;SET BIT 0 OF UPPER BY oe OF MEMGMT IF IT DOES 
1410 010644 012737 004400 172344 MOV #4400 ,KIPAR2 sSET UP KIPAR2 TO ACCESS LOCATION 440000*BITS 12-0 OF NOCARE 
1411 010652 012737 004400 172364 MOV #4400 ,KDPAR2 ;SET UP KDPAR2 TO ACCESS LOCATION 440000+BITS 12-0 OF NOCARE 
1412 010660 005737 052414 TST NOCARE sSEE IF BITS 12-0 OF NOCARE ADRS #440000 EXISTS 
1413 010664 152737 000002 002715 BISB #BIT1,MEMGMT+1 ;SET BIT 1 OF UPPER BYTE OF MEMGMT IF IT DOES 
1414 B106rs ois! 7 6400 172344 MOV #6400 ,KIPAR2 :SET UP KIPAR2 TO ACCESS LOCATION 640000+BITS 12-0 OF NOCARE 
1415 010 012737 6400 172364 MOV #6400 ,KDPAR2 :SET UP KDPAR2 TO es: LOCATION 640000+BITS 12-0 OF NOCARE 
1416 010706 005737 052414 TST NOCARE $743 IF oy 12-0 OF NOCARE ADRS +640000 EXISTS 
1417 010712 152737 000004 002715 BISB #BIT2,MEMGMT+1 ;SET BIT 20 5 GPPER * ayrE OF wpa If IT DOES 
1418 010720 000402 BR 2$ > BRANCH over STACK ‘yop 
1419 010722 062706 000004 1$: ADD #4,SP sCORRECT STACK AFTER MM T 
1420 010726 00 177572 2s: CLR MMRO s TURN OFF MEMORY RANAGERENT 
1421 010732 013737 002702 000252 MOV OLDPS2,MMPS “RESTORE MEMORY MANAGEMENT P 
1422 010740 013737 002700 000250 MOV OLDPC2 ,MMVECT sRESTORE MEMORY MANAGEMENT VECTOR 
1423 010746 000402 BR 4$ * BRANCH OVER STACK CORRECTION 
1424 010750 062706 000004 3$: ADD #4,SP sCORRECT STACK AFTER TIMEOUT 
1425 010754 013737 aosece 000006 4$: MOV OLDPS1, TMOPSW “RESTORE TIMEOUT PS 
1426 010762 013737 00267 000004 MOV OLOPC1,TOVECT sRESTORE TIMEOUT VECTOR 
1427 010770 104401 tat TYPE Mi sTY YPE: SX) INHIBITS EOP'S, (*Y) FOR ERROR SUMMARY ' 
1428 UNIBUS HANG? RESTART AT ADDRESS ' 
142$ 010774 012746 052336 MOV #UBHANG, -(SP) :MOvE ADDRESS OF HANG vy lm TO STACK 
1430 011000 104402 TYPOC O TYPE THE ADDRESS IN OCTA 
143! 011002 104401 0360235 TYPE MIA : *CZDRLBO DR11 GEN wh INTFC LOGIC TEST’ 
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PREPARE ADDRESSES AND VECTORS FOR UUT SEQ 0076 
1432 das oette ADDRESSES AND wtit a FOR UUT 
1433 011006 012737 000001 002546 BEGINI: #B1T0,DEVASK :SET UP BIT MASK TO TEST SDEVM 4 1 DEVICES 
1434 011014 80303! 002550 nt} TABINX ‘LEAR yee TO STORE TABLE OFFSETS 
1435 011020 033737 002546 001470 TSTDEV: BIT DEVMSK,SDEVM § :CHECK TO SEE IF DEVICE IS TO BE TESTED 
1436 0110¢6 001086 BNE BR, IF YES 
1437 011030 005737 002546 TST DEVMSK “SEE IF BIT 15 IS SET 
1438 011034 100013 BPL 1$ ;BRANCH TO CONTINUE IF i phic 
1439 011036 005737 001416 TST $PASS SEE IF THIS IS THE FIRST PASS 
1440 011042 001361 BNE BEGIN :BRANCH 7 REINITIALIZE THE DEVMSK LOCATION IF NOT 
1441 011044 005737 001420 TST SPASS+2 ;SEE IF THIS IS THE FIRST 
re | 011050 001356 BNE BEGINI ; BRANCH TO REINITIALIZE THE DEVMSK LOCATION IF. NO’ 
1443 011052 104401 035553 TYPE »NODVPR ; TYPE: "NO DEVICES RECOGNIZED - DIAGNOSTIC CANNOT BE RUN’ 
1444 "RESTART AT 204 IF A DEVICE IS PRESENT’ 
1445 011056 000000 HALT SFATAL ERROR = HALT HERE 
1446 011060 000137 010266 JMP START1 ; JUMP TO START! TO CHECK AGAIN FOR A MODULE 
1447 011064 006337 002546 1$: ASL DEVMSK > SHIFT MASK TO CHECK NEXT SDEVM BIT 
1448 011070 062737 000002 002550 ADD #2, TABINX S INCREMENT TABLE INDEX 
1449 011076 005237 001424 INC SUNIT : INCREMENT UNIT NUMBER 
i 011102 000746 BR TSTDEV :60 TEST NEXT BIT OF DEVICE MAP 
1452 011104 006337 002546 2$: ASi DEVMSK ; UPDATE DEVICE MAP i MASK 
1453 011110 013702 002550 MOV TABINX,R2 MOVE TABLE OFFSET TO R2 
1454 011114 062737 000002 002550 ADD #2, TABINX SUPDATE TABLE oe tae “FOR NEXT DEVICE 
1455 011122 016200 002420 MOV REGADR(R2) ,RO :PUT UUT ADDRESS I RO 
1456 011126 012701 002520 MOV #WCR,R1 :POINT R1 TO Feehan 0 EA FOR UUT ADDRESSES 
1457 011132 012703 000004 MOV #4,R MOVE 4 ADDRESSES 
1458 011136 010021 3$: MOV RO, (R1)+ ; TRANSFER UUT ADDRESS 
1459 AB Bb $8¢700 000002 ADD #¢-RO sPOINT TO NEXT UUT REGISTER 
1460 011144 30 DEC R :DECREMENT THE LOOP COUNTER AND 
1461 011146 001373 BNE 3$ ‘BRANCH IF NOT le TRANSFERING 
1462 011150 016200 002460 MOV VECADR(R2) ,RO sPUT UUT VECTOR INTO RO 
1463 011154 010021 MOV RO, (R1)+ : TRANSFER UUT ph TO ACTIVE TABLE AREA 
1464 011156 062700 000002 ADD #2.R0 ‘POINT TO NEXT VECT 
1465 011162 010011 MOV RO, (R1) ; TRANSFER VECTOR fOr TABLE A 
1466 011164 016237 001476 002720 MOV SDBUO(R2) , DOW ;SET UP DDW TO PROPER BLE ICE SNESCRIPTOR WORD 
1467 011172 013737 002720 002554 MOV LEV MOV VE THE WORD TO THE DRLEV LOCATION 
1468 011200 042 177437 9002554 BIC nirtas?, DRLEV sSTRIP ALL BITS EXCEPT BR LEVEL 
1469 011206 105037 027423 REINIT: CLRB CHAR >CLEAR THE Tee GFR Ae iks OF ANY CHARACTER 
1470 011212 004737 004374 JSR PC, SB INIT 60 RESET ‘42° AND 'BPT'’ LOCATIONS 
1471 011216 004737 004036 JSR PC.CLENUP SUBROUTINE” o CLEAR MDEVICE REGISTERS & SET CPU PRI TO 7 
1472 011c22 105737 002710 TSTB ro sSEE IF *X IS ENABLED (1S THE PRINTER DISABLED) 
1473 011226 001006 BNE TST 60 DO TEST IF NOT 
1474 ITITITITTILILILTLILILiTiLiTiitifiit tii iiiiiiit iii 
1475 3* *DOeNOTeREMOVE THE *WALT*LOOP*ROUTINE*BELOW*. BECAUSE OF THE SPEED OF THIS DIAGNOSTI 
1476 3* SOME VIDEO TERMINALS PRINT ERRONEOUS CHARACTER(S) WITH THE EOP MESSAGE DUE TO THE 
1477 ;t RESET EXECUTED IN TEST 4. THIS WAIT LOOP ENABLES THOSE TERMINALS TO ‘CATCH uP’ 
1478 it BEFORE ITS EXECUTION 
1479 jeuceseescagesenscoseosesscotocesssenccscsseseansesensscsseossecse 
1480 011230 012737 010000 011240 MOV #10000,2$ sREESTABLISH THE WAIT LOOP COUNTER 
1481 011236 005327 1$: DEC (PC)+ “DECREMENT THE LOCATION TO KILL TIME 
1482 011240 010000 2$: “WORD 10000 ‘LOCATION TO BE DECR EREN TED 
1483 011242 001375 BNE 1$ SBRANCH BACK UNTIL ZERO 
1484 seeeeceneererecececereereeeeereetereereeeeeeeertreetererenereterent 
1485 : 
1486 “MAIN PROGRAM = DEVICE TESTS 


: 
1488 Peet eeeaeaeeeeeteeeeteeteeeeereteeeeeeeeeeereeetereaeeeeteetereeers 
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#1 = CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR? 


1696 .SBTTL TEST #1 = CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR? 
FRAAAAAAAAAAAHAAAHATERAAATEAAAAEAARAAAAAAAARAAKAAAAATE PRA RAARAAL AS SG 
*TEST 1 CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR? 
it 
ie THIS TEST INSURES THAT THE CSR, BAR, BDR AND WCR REGISTERS CAN BE 
3 ACCESSED FOR THIS DEVICE. IF NOT, THE REST OF THE DIAGNOSTIC CANNOT 
7* . 
:@ 
‘ eeeeeeeeeereeeeerereereeereereteeeneereereeeeerereneenreereeeeetet 
011244 TST1: 
011244 000004 SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
011246 012737 011254 001310 MOV ©: #999%, SLPERR SET LOOP ON ERROR TO 999$ 
1497 011254 005037 001312 999$: CLR  SERTTL /CLEAR THE ERROR TOTAL = NEW PASS 
1498 011260 012737 011362 000004 MOV —s- # 1S, BUSERR :CPU ERROR VECTOR TO 1$ 
1499 011266 013737 002520 002552 MOV  —- WER, DREG SAVE ADDRESS FOR POSSIBLE ERROR TYPING 
1500 011274 005777 171220 TST awcr iACCESS REGISTER 
1501 011 013737 002522 002552 MOV _— BAR, DREG iSAVE ADDRESS FOR POSSIBLE ERROR TYPING 
1508 011306 005777 171210 TST aBAR ACCESS REGIST 
1503 011312 013737 002524 002552 MoV CSR, DREG SAVE ADDRESS FOR POSSIBLE ERROR TYPING 
1504 011320 005777 171200 TST acsr ACCESS REGISTER 
1505 011324 013737 002526 002552 MOV —- BDR, DREG SAVE ADDRESS FOR POSSIBLE ERROR TYPING 
1506 011332 005777 171170 TST aBoR ACCESS R 
1507 011336 013737 002530 002552 MOV _—DRINV, DREG 3 SAVE ADDRESS FOR POSSIBLE ERROR TYPING 
1508 011344 005777 171160 TST  @DRINV SACCESS REGISTER 
1509 011350 005737 001312 TST SERTTL SEE IF THERE WERE ANY ERRORS 
1510 011354 001414 BEQtséS BRANCH TO CONTINUE IF NONE 
1511 011356 000137 023074 JMP ss ENDEV :G0 TO END OF DEVICE ROUTINE - FATAL ERRORS 
1318 011 36¢ 012657 002674 1$: MOV (SP)+,OLDPC1 SAVE PC OF TRAP FOR ERROR PRINTOUT 
1513 011 12637 002676 MOV (SP)+/OLDPS1 § :SAVE PS FOR RESTORATION AFTER ERROR CALL 
1514 011572 104001 rBmOR +] CANNOT ACCESS DR11 REGISTER 
1515 011374 013746 00267 Pes OLDPS1,-(SP) | ;PUT PS BACK ON STACK 
1516 011400 013746 002674 MOV —OLDPCT.=(SP) PUT PC BACK ON. STACK 
1517 011404 RTI RETURN TO PROGRAM 
1518 011406 012737 000006 000004 2s: MOV #6, BUSERR RESTORE #6 TO BUS ERROR 


SRR RSG UES TT eS HS 2 SL 
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TEST #2 ~ CHECK B OR W STATUS IS AS EXPECTED SEQ 0078 
1525 .SBTTL TEST #2 = CHECK B OR W STATUS IS AS EXPECTED 
a ecendenabanasnegesosnsatenseneveonsnensncesscessaneneeenane enreeana 
;eTEST 2 CHECK B OR W STATUS IS AS EXPECTED 
a THIS TEST INSURES THAT THE @ OR W STATUS IN THE DEVICE DESCRIPTOR 
3e WORD MATCHES WHAT THE EIR SAYS THE MODULE IS. 
*® 
. RAERAARAAAAARAERAAAAEERAEAATAKEARAAAAAAAAAAAARAARARERAARAARARARAARARAARERAERAE 
011414 TST2: 
011414 04 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
011416 012737 011424 001310 MOV #999% ,SLPERR 3SET LOOP ON ERROR TO 999$ 
1526 011424 005077 171074 c99$: CLR acsR TO CSR 
1527 011430 o12777 100000 171066 MOV #EIR,@CSR FORCE TO BE EIR 
1528 011436 017737 171062 002612 MOV acSR,BORW SATTEMPT EIR READ 
1529 011444 049737 177776 002612 BIC aca tO. BORW [MASK OFF ALL BITS EXCEPT BIT 0 
1530 011452 013737 902720 001362 MOV DDW, STMP1 :GET DEVICE DESCRIPTOR WORD 
1531 011460 042737 177776 001362 BIC #CBITO,$TMP1 § :MASK OFF ALL BUT B OR W BIT 
1338 011466 001403 BEQ 1$ *BRANCH IF IT IS CLEAR 
1533 011470 005037 001362 CLR STMP1 ‘CLEAR THE BIT 
1534 011474 000403 BR 2$ [60 TEST THE BIT 
1535 011476 012737 000001 001362 1S: MOV #1,$TMP1 :SET THE BIT 
1536 011504 023737 002612 001362 2$: CMP BORW,STMP1 [B OR W STATE AS EXPECTED? 
1537 011512 001401 BEQ TST3 :BRANCH IF OK 
1538 011514 104002 ERROR #2 [DR11-B OR W MODE INCORRECT (O0=B, 1=W) 





eee + ee 
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= CHECK CSR BIT PATTERNS WITH MAINT BIT S SEQ 0079 
1546 .SBTTL TEST #3 = CHECK CSR BIT PATTERNS WITH MAINT BIT SET 
FRRAAAAAAAAAARAEEAEAAAAAAAAAAAEAAEAAAAAAAAAERARERAAAEAEARAAAAAAENE AE 
SeTEST 3 CHECK CSR BIT PATTERNS WITH MAINT BIT SET 
3;* 
3 THIS TEST SETS ALL POSSIBLE COM@INATIONS OF SET BITS IN THE CSR WITH 
it THE MAINTENANCE BIT SET, AND COMPARES THE RECEIVED CSR CONTENTS WITH 
te THAT OF THE EXPECTED PATTERNS IN THE 'MAISET’ TABLE. 
*?¢t 
SHeeeeeeeeeneeeeeteeeeeeeeeeeeeereneenerenenenteneereeenereeereeere 
011516 ST3: 
011516 000004 SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
011520 012737 011602 001310 MOV #999$,SLPERR | :SET LOOP ON ERROR TO 999$ 
1547 0115¢6 004737 004036 JSR PC, CLENUP “SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
1548 011532 012737 000200 001362 MOV #RY, STMP1 ‘MOVE READY BIT TO $TMP1 
1549 011540 032737 000004 002720 BIT #B1f2,00W ‘TEST TO SEE IF CABLE IS IN 
1550 611546 001003 BNE 1$ SBRANCH AROUND NON-CABLE SETUP IF IN 
1551 011550 052737 127000 001362 BIS #127000,$TMP1  :SET THE BITS TO BE EXPECTED IN STMP1 
1552 011556 012701 007266 1$: MOV #MAISET.R1 “MOVE ADDRESS OF EXPECTED PATTERNS TO R1 
1553 011562 012702 010000 MOV #MA,R2 “START WITH JUST THE MAINTENANCE BIT 
1554 011566 005037 002716 CLR ERRCNT “CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +202 
1555 011572 012700 000002 MOV #2,RO0 “DO 2 SETS OF 200 PATTERNS 
1556 011576 012703 000200 2$: MOV #260,R3 “MOVE 200 TO THE LOOP COUNTER 
1557 011602 052777 010000 170714 9998: BIS #MA,acsR *SET MAINTENANCE AND 
1558 011610 005077 170710 CLR acsr ‘CLEAR TO DO AN INIT 
1559 011614 017737 170704 002562 MOV aCSR,RCSR [MOVE RECEIVED DATA TO RCSR 
1560 011622 023737 001362 002562 CMP STMP1,RCSR [MAKE SURE EXPECTED DATA CAME UP 
1561 011630 001404 BEQ 3 ‘BRANCH IF SO 
136¢ 011632 013737 001362 002574 MOV STMP1,ECSR ‘MOVE EXPECTED DATA TO ECSR 
1563 011640 104032 ERROR +32 [CSR 1S WRONG 
1564 011642 012777 177777 170650 38: MOV #-1,awWcR ‘MOVE 1 WORD COUNT TO WCR IN CASE OF IE ENABLED 
1565 011650 012777 052414 170644 MOV #NOCARE,@BAR § :MOVE A NOT-CARE ADDRESS TO BAR FOR SAME REASON 
1566 011656 010277 170642 MOV R2,aCSR ‘SET THE PARTICULAR FUNCTION BITS IN CSR 
1567 011662 017737 170636 002562 MOV ac$R,RCSR [MOVE RECEIVED DATA TO RCSR 
1568 011670 011137 002574 MOV (R1).ECSR [MOVE EXPECTED DATA TO ECSR 
1569 011674 023737 002574 002562 CMP ECSR.RCSR ‘COMPARE EXPECTED WITH RECEIVED 
1570 011702 001430 BEQ 7$ ‘BRANCH IF OK 
1571 011704 012737 000401 011714 MOV #CY+G0,4$ “REESTABLISH TEST PATTERN 
1572 011712 040227 BIC R2, (PCS+ ?SEE IF BOTH CYCLE AND GO WERE SET 
1573 011714 000401 4$: .WORD CY#G0 ‘LOCATION TO HOLD BOTH CYCLE AND GO BITS 
1574 011716 001016 BNE 6$ “BRANCH TO ERROR ONLY IF CYCLE AND GO WERE SET 
1575 011720 005737 002714 TST MEMGMT :SEE IF MEMORY MANAGEMENT IS OUT THERE 
1576 011724 001404 BEG 5$ ‘BRANCH IF SO TO CHECK LOCATION EXISTENCE 
1577 011726 032737 000060 002574 BIT #X6+X7,ECSR *SEE IF ELTHER XBA16 OR XBA17 ARE SET 
1578 011734 001407 BEQ 6$ ‘BRANCH TO ERROR IF BOTH ARE CLEAR 
1579 011736 052737 140000 002574 5$: BIS #ER+NX,ECSR :SET THE ERROR AND NEX BITS - EXPECT THEM TO SET 
1580 011744 023737 002562 002574 CMP RCSR,ECSR “NOW SEE IF DATA MATCHES 
1581 911752 001415 BEQ 10$ ‘BRANCH AROUND ERROR IF IT DOES 
1588 011754 010237 002540 6$: MOV R2,BUT “MOVE THE BITS SET INTO CSR TO THE BUT LOCATION 
158 011769 104202 ERROR +202 [CSR PATTERN NOT CORRECT 
1584 011762 000411 10$ ‘BRANCH AROUND MM TESTS 
1585 011764 012737 000401 011774 7%: MOV #CY+G0,8$ “REESTABLISH TEST PATTERN 
1586 011772 040227 BIC R2, (PCS+ “SEE IF BOTH CYCLE AND GO WERE SET 
158 11774 000401 8$: .WORD  CY#GO ‘LOCATION TO HOLD BOTH CYCLE AND GO BITS 
1588 011776 001003 BNE 10% “BRANCH AROUND MEM MGMT TEST IF EITHER OR BOTH WERE CLEAR 
1589 012000 004737 006134 9$: JSR PC, TSTMM °GO CHECK FOR MEMORY MANAGEMENT EXISTENCE 
1590 012004 000754 BR $ [IF RETURN IS HERE, GO BACK TO SET EXPECTED DATA 
1591 012006 062701 000002 10$: ADD #2,R1 “INCREMENT R1 TO NEXT EXPECTED PATTERN 
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T #3 = CHECK CSR BIT PATTERNS WITH MAINT BIT SET SEQ 0080 
133% 012012 oe $808 INC Re ; INCREMENT THE PATTERN 
159 BiSore bo DEC R ;DECREMENT THE LOOP COUNTER 
1594 012016 0012 BNE 999% ;BRANCH BACK IF NOT DONE 
1595 012020 069703 000200 ADD #200,R2 sADD 200 TO PATTERN oats al 
1596 012024 005300 DEC RO ;DECREMENT THE LOOP COUNTER AND 
1597 012026 001263 BNE 2$ ;BRANCH BACK IF 2ND OCTAL GROUP NOT DONE 
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TEST #4 = CHECK WCR, BAR & BOR, & T CLRS 4 DEV REGS SEQ 0081 
1604 -SBTTL TEST #4 = CHECK WCR, BAR & BOR, & RESET CLRS 4 DEV REGS 
FRARAARARAAAARAREEEEEAAAETEEAAERAEAAEREREAAEAARAAEAAAAAEAAERAERAAEEE 
s*TEST 4 CHECK WCR, BAR & BDR, & RESET CLRS 4 DEV REGS 
;* 
7 THIS TEST INSURES THAT THE WCR, BAR AND BDR REGISTER BITS CAN ALL BE 
SET, AND THAT A RESET CLEARS ALL 3 PLUS THE CSR REGISTER. 
-® 
Seeeeeeeeeeneeeeeeeeeeeeeneeenereneeeeneeneenetenerenneeeneeeeeeeee 
012030 TST4: 
012030 000004 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
012032 012737 012040 001310 MOV #999$ , SLPERR ;SET LOOP ON ERROR TO 999$ 
1605 012040 012777 010000 170456 ¢°99$: MOV #MA,acsR ;SET THE MAINTENANCE BIT AND 
1606 012046 005077 170452 CLR acsr ;CLEAR TO DO AN INIT 
1607 012052 012777 177777 170440 MOV -#-1,aWCR sALL_ONES TO WCR 
1608 012060 017737 170434 002572 MOV aWCR,RWCR ;MOVE RECEIVED DATA TO RWCR 
1609 012066 022737 177777 002572 CMP #-1,RWCR ;SEE IF DATA WAS LOADED PROPERLY 
1610 012074 pert BEQ 4% sBRANCH IF OK 
1611 012076 012737 012106 001310 MOV #1$,SLPERR s;MOVE NEW LOOP ON ERROR LOCATION TO SLPERR 
1612 012104 000412 BR 23 ;BRANCH OVER LOOP SETUP 
1613 012106 012777 177777 170404 1$: MOV #-1,awCR ;ALL_ONES TO WCR 
1614 012114 017737 170400 002572 MOV awWCR ,RWCR s;MOVE RECEIVED DATA TO RWCR 
1615 012122 022737 177777 002572 cMP #-1,RWCR ;SEE IF DATA WAS LOADED PROPERLY 
1616 012130 001401 BEQ 3$ ;BRANCH IF OK 
1617 012132 104010 2$: ERROR +10 ;ATTEMPT TO SET ALL WCR BITS FAILED 
1618 012134 032777 001000 167176 38: BIT #BIT9,asuR ;SEE IF WE SHOULD LOOP BACK 
1619 012142 001361 BNE 1$ ;BRANCH BACK IF SO 
1620 012144 012777 177777 170350 4$: MOV #-1,QBAR ;ALL_ONES TO BAR 
16s) ois 138 017737 170344 002570 MOV @BAR ,RBAR sMOVE RECEIVED DATA TO RBAR 
1622 0121 022737 177776 002570 CMP #-2,RBAR ;SEE IF ALL BITS WERE SET (DON'T EXPECT BIT 0 TO SET) 
1623 012166 001426 BEQ 8$ ;BRANCH IF OK 
1624 012170 012737 012206 001310 MOV #5$,SLPERR :MOVE NEW LOOP ON ERROR LOCATION TO SLPERR 
1625 012176 012737 177776 002602 MOV #-2,EBAR ;MOVE EXPECTED DATA TO EBAR 
1626 012204 000412 BR 6$ ;BRANCH OVER LOOP SETUP 
1627 012206 012777 177777 170306 5$: MOV #-1,@BAR ;ALL_ONES TO BAR 
1628 012214 017737 170302 002570 MOV @BAR ,RBAR s;MOVE RECEIVED DATA TO RBAR 
1629 012222 022737 177776 002570 CMP #-2,RBAR 7SEE IF ALL BITS WERE SET (DON'T EXPECT BIT 0 TO SET) 
1630 012230 001401 BEQ 7$ sBRANCH IF OK 
1631 012232 104012 6$: ERROR +12 ;ATTEMPT TO SET ALL BAR BITS TO 1 FAILED 
1632 012234 032777 001000 167076 7$: BIT #B1T9,aSwR ;SEE IF WE SHOULD LOOP BACK 
1633 012242 001361 BNE 5$ ;BRANCH BACK IF SO 
1634 012264 017737 170254 002562 8$: MOV aCSR,RCSR sACCESS CSR TO SET BIT 0 OF BAR 
1635 012252 012777 177777 170242 MOV #-1,@BAR sALL ONES TO B 
1636 012260 017737 170236 002570 MOV @BAR ,RBAR MOVE RECEIVED DATA TO RBAR 
1637 012266 022737 177777 002570 CMP #-1,RBAR ;SEE IF ALL BITS WERE SET (*D0* EXPECT BIT 0 TO SET) 
1638 Otgsie 001431 BEQ 12$ ;BRANCH IF OK 
1639 012276 012737 012314 001310 MOV #9$ ,SLPERR ;MOVE NEW LOOP ON ERROR LOCATION TO SLPERR 
1640 012304 012737 177777 002602 MOV #-1,EBAR ;MOVE EXPECTED DATA TO EBAR 
1641 012312 000415 BR 108 ;BRANCH OVER LOOP SETUP 
Hy 74 | BISeas toed 170204 002562 9%: MOV aCSR,RCSR sACCESS CSR TO SET BIT O OF BAR 
1643 012322 torte 177777 «170172 MOV #-1,QBAR ;ALL_ONES TO BAR 
1644 OSs 017737 170166 002570 MOV @BAR ,RBAR sMOVE RECEIVED DATA TO RBAR 
1645 012336 022737 177777 002570 CMP #-1,RBAR 7SEE IF ALL BITS WERE SET (*DO* EXPECT BIT 0 TO SET) 
18 012344 001401 BEQ 11$ ;BRANCH IF OK 
164 4 38 Hs at 10$: ERROR +12 ;ATTEMPT TO SET ALL BAR BITS TO 1 FAILED 
1648 012350 032777 001000 166762 11%: BIT #B1T9,aSwR ;SEE IF WE SHOULD LOOP BACK 
1649 012356 001356 BNE 9$ ;BRANCH BACK IF SO 
1650 012360 012777 177777 170140 12%: MOV #-1,@BOR ;ALL ONES TO BOR 





ae + agg GEN NPR INTFC 
WCR, BAR & BOR, 


TEST #4 = CHECK 
1651 012366 
1652 012374 
1653 012402 
1654 012404 
1655 012412 
1656 012414 
1657 012422 
1658 012430 
1659 012436 
1660 012440 
1661 012442 
1662 012450 
1663 012452 
1664 012460 
1665 012462 
1666 012470 
1667 012476 
1668 012500 
1669 012502 
1670 012510 
1671 012512 
1672 012516 
1673 012520 
1674 012526 
1675 012534 
1676 012540 
1677 012546 
1678 012550 
1679 012552 
1680 012560 
1681 012566 
1682 012570 


104026 


170134 
177777 


012414 
177777 
170100 
177777 
001000 
010576 
012040 
170024 
170014 
002602 
170000 


010000 
167742 
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& RESET CLRS 4 


002566 
002566 


001310 
170104 
002566 
002566 
166670 
170044 
001310 
002572 


002570 


002562 
002574 


002562 


167744 
002566 


178: 


18$: 


19$: 


DEV REGS 


@BOR ,RBOR 
#-1,RBOR 
#13$,SLPERR 
14$ 
#-1,aBOR 
@BOR ,RBOR 
#-1,RBOR 
15$ 

+27 
#B1T9,aSwR 
#10576,aCSR 
#999$ , SLPERR 
awCR,RWCR 
17$ 

+7 
@BAR,RBAR 
18$ 

EBAR 

+11 
acSR,RCSR 
#RY,ECSR 
PC,CHKCAB 
ECSR,RCSR 
19% 

+32 
#MA,aCSR 
@BDR,RBOR 
TST5 

+26 


MOVE RECEIVED DATA TO RBDR 


;SEE IF DATA WAS LOADED PROPERLY 
BRANCH IF OK 
s;MOVE NEW LOOP ON pee LOCATION TO SLPERR 
zBR ANCH a4 + > SETU 
L_ONES TO BDR 
‘ROVE ag tl be DATA TO RBDR 
;SEE IF DATA WAS LOADED PROPERLY 
BRANCH IF OK 
;ALL BOR BITS ARE NOT 


SET 
SEE IF WE SHOULD LOOP BACK 
BRANCH BACK IF SO 


:SET ALL CSR WRITEABLE BITS 


RESET THE WORLD OF ITS TROUBLES - HOPEFULLY 
;RESET THE ye ON ERROR LOCATION 

WAS WCR CLEAR 

;BRANCH IF WCR WAS CLEARED 

sRESET FAILED TO CLEAR WCR 


;MOVE RECEIVED DATA TO RBAR 
;BRANCH IF BAR WAS CLEARED 
CLEAR EXPECTED LOCATION 

;RESET FAILED TO CLEAR BAR 


s;MOVE RECEIVED DATA TO RCSR 
sMOVE EXPECTED DATA TO ECSR 


SEQ 0082 


3GO0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 


;SEE IF EXPECTED DATA WAS RECEIVED 

;BRANCH IF IT 

;READY IS NOT THE ONLY BIT SET 

:MAINT MODE (SO THAT IDR GETS ODR CONTENTS) 
s;MOVE CONTENTS OF BOR DR 


TO RB 
:BRANCH IF IT CORRECTLY REMAINS ZERO 
;BDR IS NOT CLEAR 
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TEST #5 = DEVICE INIT CLEARS CSR, WCR, BDR AND SEQ 0083 
1688 .SBTTL TEST #5 = DEVICE INIT CLEARS CSR, WCR, BDR AND BAR 
FRRAAEAAAARERAAREAAEAEAA EAA E ARATE AAAAAAAAEREREAEAAERAHARHANARAAEEE 
* EATEST 5 DEVICE INIT CLEARS CSR, WCR, BDR AND BAR 
ce THIS TEST INSURES THAT DEVICE INIT CLEARS THE CSR, WCR, BDR AND BAR. 
*® 
Seeeeeeeeeneeeeeeeeeeerereeeerereeneeteneeeeeereneeeeeeeteeereeeee 
012572 000004 TST5:  SCuPE 
1689 012574 005077 167724 9998: CLR acsR FORCE ACCESS TO CSR 
1690 012600 012777 177777 167712 MOV = #1 ,@WCR TALL ONES TO WCR 
1691 012606 012777 177777 167712 MOV’ #=1 ABR ALL ONES TO BDR 
1692 012614 012777 177777 167700 MOVs =1.a ALL ONES TO BAR 
1693 012622 012777 010576 167674 MOV 110876, SCSR SET ALL WRITEABLE BITS IN THE CSR 
1694 012630 042777 010000 167666 BIC #MA,acSR :CLEAR THE MAINT BIT TO DO AN INIT 
1695 012636 017737 167656 002572 MOV = aWCR,RWCR :MOVE RECEIVED CONTENTS TO RWCR 
1696 012644 001401 BEQ 1$ BRANCH IF WCR WAS CLEARED 
1697 012646 104003 ERROR +3 SINIT FAILED TO CLEAR WCR 
1698 012650 017737 167646 002570 1%: MOV — @BAR, RBAR :MOVE RECEIVED CONTENTS TO RBAR 
1699 012656 901403 BEQ 2$ BRANCH IF BAR WAS CLEARED 
1700 012660 005037 002602 CLR EBAR SCLEAR EXPECTED LOCATION 
1701 012664 104004 ERROR +4 :INIT FAILED TO CLEAR BAR 
1702 012666 017737 167632 002562 28: MOV — @CSR, RCSR :MOVE RECEIVED DATA TO RCSR 
1703 012674 012737 000200 002574 MOV —s #RY,ECSR EXPECT READY BIT ONLY TO BE SET 
1704 012702 004737 004060 JSR PC, CHKCAB GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
1705 012706 023737 002574 002562 CMP = s«ECCSR, RCSR SEE IF EXPECTED DATA WAS RECEIVED 
1706 012714 001401 BEQ 3$ BRANCH IF THEY WERE ALL CLEAR 
1707 012716 104006 ERROR +6 {INIT FAILED TO CLEAR ALL CSR Row BITS 
1708 012720 012777 010000 167576 38: MOV = #MA, aCSR GO BACK INTO MAINT MODE (SO THAT IDR GETS ODR CONTENTS) 
1709 012726 017737 167574 002566 MOV = @BDR, RBDR MOVE RECEIVED CONTENTS TO RBDR 
1710 012734 001401 BEQ TST6 BRANCH IF IT WAS CLEARED 
1711 012736 194005 ERROR +5 INIT FAILED TO CLEAR BDR 
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EST #6 - BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS SEQ 0084 
1721 -SBTTL TEST #6 = BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS 
PRRAAHeeHeAeeeeAeee eee ee eeeeeeetedeeaeKeteeeteKeReteneeAteneeeaeeee 
s*TEST 6 BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS 
.e 


al THIS TEST RUNS 7 BIT PATTERNS THROUGH THE WCR, BDR AND BAR TO CHECK FOR 
5@ ANY STUCK OR SHORTED PINS. LOCATION $LPERR IS NOT SET UP AT THE START 
3° SINCE A DIFFERENT METHOD OF ERROR LOOPING IS DONE. WHEN AN ERROR IS 
:* 

“ 


RERAAAAAEAAEAREAAHAAAAAEREHREAETAAAAEAAAAAARARERAARAAAAAAAAAARARARAEAARE 


012740 000004 TST6: SCOPE 
1722 012742 004737 004036 JSR PC,CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
1723 012746 005037 002716 CLR ERRCNT :CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +204 
1724 012752 012701 006250 MOV #PATRNS,R1 ;MOVE ADDRESS OF BIT PATTERNS TO R1 
1725 012756 012702 000007 MOV #7, ;D0 7 PATTERNS 
1726 012762 012777 010000 167534 MOV #MA,acsR GO TO MAINTENANCE MODE 
1727 012770 011177 167524 1$: MOV (R1) ,awCR MOVE THE DATA TO WCR 
1728 012774 017737 167520 002572 MOV awcR ,RWCR ;MOVE RECEIVED DATA TO RWCR 
1729 013002 021137 002572 CMP (R1),RWCR SEE IF EXPECTED DATA WAS RECEIVED 
1730 013006 001423 BEQ ;BRANCH IF SO 
1731 013010 012737 013024 001310 MOV #2$,SLPERR ;SET UP LOOP ON ERROR LOCATION 
1732 013016 011137 002604 MOV (R1),EWCR s;MOVE EXPECTED DATA TO EWCR 
1733 013022 000410 BR 3$ ;SKIP OVER LOOP ON ERROR SETUP 
1734 013024 011177 167470 2$: MOV (R1) ,awecR ;LOAD BIT PATTERN TO WCR 
1735 013030 017737 167464 002572 MOV avicR ,RWCR ;MOVE RECEIVED DATA TO RWCR 
1736 013036 021137 002572 CMP (R1),RWCR SEE IF DATA IS OK NOW 
14 OI Seer 001401 BEQ 4$ ;BRANCH OUT IF SO = OK NOW 
1738 013044 104204 3$: ERROR +204 ;WCR DATA PATTERN NOT CORRECT 
1739 013046 032777 001000 166264 4$: BIT #B1T9,aSwR ;SEE IF WE SHOULD LOOP BACK 
1740 013054 001363 BNE 2$ ;BRANCH BACK IF SO 
1741 013056 011177 167440 5$: MOV (R1) ,@BAR ;MOVE THE DATA TO BAR 
1742 013062 017737 167434 002570 MOV @BAR ,RBAR MOVE RECEIVED DATA TO RBAR 
1743 013070 011137 002602 MOV (R1) ,EBAR ;MOVE EXPECTED DATA TO EBAR 
1744 013074 042737 000001 002602 BIC #8110, EBAR ;D0 NOT EXPECT BIT 0 TO BE READ 
1745 013102 023737 002602 002570 CMP EBAR ,RBAR ;SEE IF EXPECTED DATA WAS RECEIVED 
1746 013110 001423 BEQ 9$ ;BRANCH IF SO 
1747 013112 012737 013126 001310 MOV #6$,SLPERR ;SET UP LOOP ON ERROR LOCATION 
1748 013120 011137 002602 mov (R1) ,EBAR sMOVE EXPECTED DATA T AR 
1749 013124 000410 BR 7$ ;SKIP OVER LOOP ON ERROR SETUP 
1750 013126 011177 167370 6$: MOV (R1) ,@BAR ;LOAD BIT PATTERN TO BAR 
1751 0131352 017737 167364 002570 MOV @BAR ,RBAR ;MOVE RECEIVED DATA TO RBAR 
IT3¢ 013140 021137 002570 CMP (R1) ,RBAR SEE IF DATA IS OK NOW 
1753 0135144 001401 BEQ $ ;BRANCH OUT IF SO = OK NOW 
1754 013146 104203 7$: ERROR +203 ;BAR DATA PATTERN NOT CORRECT 
1755 013150 032777 001000 166162 8$: BIT #B1T9,aSuR ;SEE IF WE SHOULD LOOP BACK 
1756 013156 001363 BNE 6$ ;BRANCH BACK IF SO 
1757 013160 011177 167342 9$: MOV (R1) ,@BOR MOVE THE DATA TO BOR 
1758 013164 017737 167336 002566 MOV @BOR ,RBOR MOVE RECEIVED DATA TO RBDR 
1759 013172 0211357 002566 cMP (R1),RBOR sSEE IF EXPECTED DATA WAS RECEIVED 
1760 013176 pert BEG 13$ ;BRANCH IF SO 
1761 013200 012737 013214 001310 MOV #108, SLPERR ;SET UP LOOP ON ERROR LOCATION 
4 Bless 011137 002600 MOV (R1) ,EBDR sMOVE EXPECTED DATA TO EBDR 
1763 013212 000410 BR 11$ ;SKIP OVER LOOP ON ERROR SETUP 
1764 013214 011177 167306 108: MOV (R1) ,@BOR ;LOAD BIT PATTERN TO BOR 
1765 013220 017737 167302 002566 MOV @BDR ,RBOR s;MOVE RECEIVED DATA TO RBDR 
1766 013226 0211357 002566 CMP (R1) ,RBOR SEE IF DATA IS OK NOW 


a ed ed od 4 
SNS NSN 


SN NNO OO 
AN=SSBa s& aS 
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PATTERN TEST OF WCR, BDR AND BAR REGISTERS 
12$ 
11$: +205 
001000 166074 12$: BIT Siraom 
13$: 


NSSRSES — 






+ BRANCH OUT IF SO - OK N 


‘GO TO NEXT PATTERN 
“DECREMENT THE LOOP COUNTER AND 
[BRANCH BACK IF NOT DONE 


1780 

013254 

013254 

013256 
1781 013264 
1782 013272 
1783 013274 
1784 013300 
1785 013 
1786 013314 
1787 013322 
1788 013324 
1789 013332 
1790 013340 
1791 013342 
1792 013350 
1793 013356 
1794 013364 
1795 013 
1796 013374 
1797 01340 





CZDRLBO-DR11 GEN NPR INTFC 
TEST #7 = TEST CSR AND EIR BITO 


000004 


104015 





013264 
000001 


167224 


000001 


002562 
000001 


100000 


002564 
000001 


001310 
002612 


002540 
002562 
002562 


002574 
002574 


167154 
002564 
002564 


002576 
002576 
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-SBTTL TEST #7 = TEST CSR AND EIR BITO 


FERRARA EEAAREEEA AEE EAE RE AAEAEAAAAAAEAAAAEEARERAAAAEERAAERAREEHEEEE 


TEST CSR AND EIR BITO 
THIS TEST INSURES THAT BIT 0 OF THE CSR _IS CLEAR WHEN IN CSR MODE (BIT 


;*TEST 7 


;* 
7 
-* 
-* 


15 CLEAR), 


AND SET WHEN IN EIR MODE (BIT 15 SET). 


SRERRREEAAAREREAEEEREREEAEREREAAAAAAAAAAAAAAERAAAAAAAAAAEAAAAETAAEAEE 


ist?: 


o99$: 


1$: 


#999, SLPERR 
#8170, BORW 
TST10 

acsrR 
#B81T0,BUT 
aCSR,RCSR 
e116, RCSR 


RCSR,ECSR 
#8110, ECSR 


EIR, acsR 


T 
REIR,EEIR 
wb1i0, EEIR 


;PROCESS LOOPING AND TEST NUMBER INCREMENT 
;SET LOOP ON ERROR TO 999$ 

:TEST TO SEE IF WE ARE TESTING A DR11-W 

:BRANCH TO NEXT TEST IF A DR11-8 

sFORCE ACCESS TO CSR 

:MOVE BIT 0 INDICATOR TO BIT UNDER TEST LOCATION 
:MOVE CSR CONTENTS TO RCSR 

;CLEAR ALL BUT BIT 0 

;BRANCH IF A ZERO 

;MOVE CSR TO EXPECTED DATA, ECSR AND 

;CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 

:CSR BIT TEST ot Cale 


:G0 TO EIR MO 
s;MOVE CSR CONTENTS TO RCSR 
;CLEAR ALL BUT BIT 0 


;BRANCH IF NOT A ZERO 

;MOVE CONTENTS TO ECSR ALSO AND 

;SET THE 0 BIT - EXPECTED IT TO BE 1 
:EIR BIT TEST FAILED 
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TEST #10 = ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS SEQ 0087 
1804 -SBTTL TEST #10 - ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS 
RORRHAREKARER RAAT AAT TAATTAA TEKH TAHA eKAAeeTeeneeneenererereneeee 
s*TEST 10 ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS 
38 
;* nt ert. INSURES THAT THE ATTN BIT (BIT 13) SETS VIA FNCT2 AND ERROR 
7@ . 


° 
. 
;* 

; SRRRAAAAEAAAAEHEAAAEEAAEREAAAAAEAAAEAAAARALAAAAAAARAEHHAAAAHAAAAAAAAEE 


013404 TST10: 
013404 000004 SCOPE ;PROCESS Pon take . TEST NUMBER INCREMENT 
013406 012737 013424 001310 MOV #999$ ,SLPERR ;SET LOOP ON ERROR TO 999% 
1805 013414 032737 000001 002720 BIT #81T0,00W :TeST TO SEE IF UE ARE TESTING A DRI1-W 
1806 013422 001073 BNE TST11 BRANCH TO NEXT TEST IF A DR11-8 
1807 Ht ox 74 005077 167074 999$: CLR acsr — ACCESS TO CSR 
1808 0134 012777 010000 167066 MOV #MA,aCSR 
1809 013436 017737 167062 002562 MOV @CSR,RCSR :ROVE "RECEIVED DATA TO RCSR 
1810 013444 022737 010200 002562 CMP #MA+RY ,RCSR ;SEE IF gg Su DATA WAS RECEIVED 
1811 013452 001404 BEQ 1$ BRANCH IF THEY ARE 
1812 013454 012737 010200 002574 MOV #MA+RY ,ECSR :MOVE EXPECTED DATA TO ECSR 
1813 013462 104016 ERROR +16 READY AND MAINTENANCE ARE NUT THE ONLY BITS SET IN CSR 
1814 013464 112777 000004 167032 1$: MOVB #F2,aCSR :SET FNCT2 
1815 013472 017737 167026 002562 MOV aCSR,RCSR ;MOVE THE CONTENTS TO RCSR 
1816 013500 013701 002562 MOV RCSR,R1 MOVE CONTENTS TO R1 FOR BIT TEST 
1817 013504 042701 057777 BIC #€B1513,R1 CLEAR ALL BUT BITS ERROR & ATTN FOR TEST 
1818 013510 022701 120000 CMP WER+AT,RI TEST TO SEE IF ERROR AND ATTN ARE SET 
1819 013514 001411 BEQ 23 ;BRANCH IF IT IS PROPERLY SET 
1820 013516 013737 002562 002574 MOV RCSR,ECSR s;MOVE EXPECTED DATA TO ECSR 
183) Or 5286 O08 3! 004060 JSR PC, CHKCAB 3GO_ CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
1822 0135 052737 120000 002574 BIS #ER+ATECSR ;SET THE BITS THAT SHOULD HAVE BEEN SET 
1823 013536 104017 ERROR +17 ;ATTN AND we so TO SET PROPERLY 
1824 013540 042777 020004 166756 2$: BIC #AT+F2,aCSR :CLEAR ATTN & FNCT2 
1825 013546 017737 166752 002562 MOV aCSR,RCSR ;MOVE CSR DATA "6 RCSR 
1826 013554 032737 120000 002562 BIT #ER+AT,RCSR :BIT TEST ATTN AND ae BITS TO SEE IF THEY ARE CLEAR 
1827 013562 001411 BEQ 3$ BRANCH IF ATTN IS CLEAR 
1828 013564 013737 002562 002574 MOV RCSR,ECSR :MOVE EXPECTED DATA TO ECSR 
1829 013572 042737 120000 002574 BIC #WER+AT,ECSR ;CLEAR THE BITS THAT WERE SUPPOSED TO BE CLEAR 
1830 013600 004737 004060 JSR PC ,CHKCAB :GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
1831 013604 104020 ERROR +20 ATTN AND ERROR FAILED TO CLEAR PROPERLY 
1832 013606 005077 166712 3$: CLR acsr ;RETURN TO CSR 





1838 

013612 

013612 

013614 
1839 013622 
1840 013626 
1841 013634 
1842 013642 
1843 013650 
1844 013654 
1845 013660 
1846 013662 
1847 013670 
1848 013672 
1849 013700 
1850 013706 
1851 013714 
1852 013720 
1853 013724 
1854 013730 
1855 013732 
1856 013740 
1857 013746 
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001000 


006000 
001000 





001310 


166670 
002562 
002574 


002574 


166624 
002562 
002574 


002574 
002574 
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STAT BIT 9 


-SBTTL TEST #11 = FNCT BIT 1 CONTROLS DSTAT BIT 9 


ata Aad met eg antennae So ah ect mainte eis eet tal 


SEQ 0088 


FNCT BIT 1 CONTROLS DSTAT BIT 9 


#999% ,SLPERR 
acsrR 


#MA,acsR 
@CSR,RCSR 
RCSR,ECSR 
ECSR,R1 
oe 


1 
#FNC,ECSR 
+24 
#F1,aCSR 


@CSR,RCSR 
RCSR,ECSR 


#0AB,ECSR 
#OSC.ECSR 
+25 


THIS TEST INSURES THAT FNCT BIT 1 CONTROLS DSTAT BIT 9. 


ee ne ee ee ee 


;PROCESS SS ioe . TEST NUMBER INCREMENT 
;SET LOOP ON ERR 999$ 
CLR FUNC — AND FORCE ACCESS TO CSR 


;MAINT MOD 
;MOVE CONTENTS of > itsa RCSR 


sMOVE EXPECTED T 
sMOVE CONTENTS 10 R1 “an 


:CLEAR ALL BUT THE FNCT 
sBRANCH IF THE FUNCTION BITS ARE CLEAR 


ee: THE BITS THAT SHOULD HAVE BEEN CLEAR 
aor pact BIT(S) ARE NOT CLEAR 


3S 
;MOVE CONTENTS OF ‘. TO ~ 


:CLEAR ALL BUT BITS 9, 10 & 1 


SEE IF DSTAT A AND B ARE CLEAR : C IS Set 
:BRANCH TO NEXT TEST IF ALL CLEAR 

:CLEAR THE DSTAT A & B BITS THAT SHOULD HAVE BEEN CLEAR 
;SET 1" DSTAT C BIT THAT SHOULD HAVE BEEN SET 

:DSTAT A, B OR C ARE NOT AS EXPECTED 
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TEST #12 = FNCT BIT 2 CONTROLS DSTAT BIT 10 SEQ 0089 
1863 -SBTTL TEST #12 = FNCT BIT 2 CONTROLS DSTAT BIT 10 
RRREHARAKERAKARAAA TATA TATE TATA TAH AA AAA ee AA eeTHereteTeeerenereeeeee 
*TEST 12 FNCT BIT 2 CONTROLS DSTAT BIT 10 
ie 
se THIS TEST INSURES THAT FNCT BIT 2 CONTROLS DSTAT BIT 10. 
°* 
[eeeeeeteeeteeenenerereereererereeeeneeereneeeneeereneeeereeereees 
013750 TST12: 
013750 000004 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
013752 012737 013760 001310 MOV #999% , SLPERR SET LOOP ON ERROR 
1864 013760 0050 166540 999$: CLR acsr :CLR FUNCT BITS AND FORCE ACCESS TO CSR 
1865 013764 012777 010000 166532 MOV #MA,aCSR MAINT MODE 
1866 013772 017737 166526 002562 MOV @CSR,RCSR ;MOVE CONTENTS OF CSR TO RCSR 
1867 014000 013737 002562 002574 MOV RCSR,ECSR :MOVE EXPECTED TO ECSR 
1868 014006 013701 002574 MOV ECSR,R1 ;MOVE CONTENTS TO R1 FOR TESTING 
1869 014012 042701 177761 BIC #CFNC,R1 CLEAR ALL BUT THE FNCT BITS 
1870 014016 1404 BEQ 1$ :BRANC!! IF THE FUNCTION BITS ARE CLEAR 
1871 014020 042737 000016 002574 BIC #FNC,ECSR CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR 
1872 014026 104024 ERROR +24 ; FUNCTION BIT(S) ARE NOT CLEAR 
1873 014030 052777 000004 166466 1$: BIS #F2,aCSR SET FNCT 
1874 014036 017737 166462 002562 MOV aCSR,RCSR s;MOVE CONTENTS OF CSR TO RCSR 
1875 014044 013737 002562 002574 MOV RCSR,ECSR sMOVE EXPECTED DATA TO ECSR 
1876 014052 013701 002574 MOV ECSR,R1 MOVE CONTENTS TO R1 FOR ag 
1877 014056 042701 170777 BIC #CDST,R1 :CLEAR ALL BUT THE DSTAT BITS 
1878 014062 022701 002000 CMP #0SB,R1 sIF DSTAT A AND C ARE CLEAR & B IS SET 
1879 014066 001407 BEQ TST1$ ;BRANCH TO NEXT TEST IF AS EXPECTED 
1880 014070 042737 005000 002574 BIC #DAC,ECSR ;CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR 
1881 014076 052737 002000 002574 BIS #0SB,ECSR :SET ie BIT THAT SHOULD HAVE BEEN SET 
1882 014104 104025 ERROR +25 :DSTAT A, B OR C ARE NOT AS EXPECTED 


1888 


014106 

014106 

014110 
1889 014116 
1890 014122 
1891 014130 
1892 014136 
1893 014144 
1894 014150 
1895 014154 
1896 014156 
1897 014164 
1898 014166 
1899 014174 
1900 014202 
1901 014210 
1902 014214 
1903 014220 
1904 014224 
1905 014226 
1906 pk tes 
1907 014242 


SS 


SSSASFSFIISS 
NNNONES 
NRW 
NEN 


FSF 
Beak eran 

So 

= 


-o 
on 
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003000 
004000 
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TEST #13 = FNCT BIT 3 CONTROLS DSTAT BIT 11 


001310 
166374 


002574 


166330 
002562 
002574 


002574 
002574 





SEQ 0090 


-SBTTL TEST #13 = FNCT BIT 3 CONTROLS DSTAT BIT 11 


FRRAAAAHERARHAAEAEEAEAAEAEAA AERA EE AAAAAEAAAAEAAERAEAAAAERARARETEREAEE 


SeTEST 13 


TST13: 


999$: 


18: 


FNCT BIT 3 CONTROLS DSTAT BIT 11 
THIS TEST INSURES THAT FNCT BIT 3 CONTROLS DSTAT BIT 11. 


SROERAAAAAAAAAAAAEEEAEEAAAAAAAAERAAAAAAAAAAAAAAAAAAAAAAAAAERAEAAEAEE 


#999% , SLPERR 
acsr 


#MA,aCSR 
@CSR,RCSR 
RCSR,ECSR 


1 
#FNC,ECSR 
+24 


#F3,aCSR 
@CSR,RCSR 
RCSR,ECSR 


#0BC,ECSR 
#OSAECSR 
+25 


;PROCESS take - TEST NUMBER INCREMENT 
;SET LOOP ON ERROR TO 999$ 

:CLR FUNCT BITS AND FORCE ACCESS TO CSR 
;MAINT MODE 


MOVE CONTENTS * CSR TO RCSR 
;MOVE EXPECTED TO ECSR 

;MOVE CONTENTS TO R1 FOR ca 

CLEAR ALL BUT THE FNCT BITS 

;BRANCH IF THE FUNCTION BITS ARE CLEAR 

2 ay THE iH THAT SHOULD —_ BEEN CLEAR 
;FUNCT NTS S) ARE NOT CLEAR 


s. 
« 
mn 
m 
x$ 
52 
m 
o 
“~ 
mm 
o 
=] 
> 
~ 
Dag 
Oo 
o 


;CLEAR ALL SUT DSTAT BIT 
;SEE IF DSTAT B AND C ARE — & AIS SET 
[BRANCH TO NEXT TEST IF DATA OK 
CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR 
iSET a | BIT THAT SHOULD HAVE BEEN SET 
DST . B OR C ARE NOT AS EXPECTED 
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1915 

014244 

014244 

014246 
1916 014254 
1917 014262 
1918 014264 
1919 014270 
1920 014276 
1921 014 
1922 014312 
1923 014320 
1924 014322 
1925 014330 
1926 014332 
1927 014340 
1928 014346 
1929 014354 
1930 014362 
1931 014370 
1932 014372 
1933 C14400 
1934 014402 


o 

—_ 

~ 

en~ 
~w ¥“e 

a i ie | 


oO oO 
Ww 
~ 
~ 
w 
~ 


sscecess 


NN NNN 

a 0d NO 
Le be | 
nw 


J 


SeSSRSSsass 
—* ie emanate ie 
Rulon ~woww 

NO NEN NO 
Sesy ~ 

non ~ 
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TEST #14 = EIR BLOCKS DATA XFERS FROM ODR T 


-SBTTL TEST #14 = EIR BLOCKS DATA XFERS FROM ODR TO IDR 


SURAAAAAAAAAARAAAAAAATETERE RARE AAAHAAAAAHARAAAAAAAAAKEHRAAHERAATENEE 


s*TEST 14 EIR BLOCKS DATA XFERS FROM ODOR TO IDR 


te THIS TEST INSURES THAT GOING TO EIR MODE BLOCKS DATA TRANSFERS FROM 
3 ODR TO IDR (ODR RECEIVES DATA WHEN WRITING TO THE BDR, AND WHEN READING 
te THE BDR, THE IDR IS READ). 
*@ 
Seeeeeeeeeeneeeeereeereeteeenereeeeeneneeanereaneeenerererereerrese 
TST14 
SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
MOV #999$,$LPERR | SET LOOP ON ERROR TO 
BIT #81T0.BORW :TEST TO SEE IF WE ARE TESTING A DRI1- 
BEQ S115 ‘BRANCH TO NEXT TEST IF A DR11-8 
999$: CLR acsr SFORCE ACCESS TO CSR 
MOV #MAACSR ;SET MAINT MODE (SO THAT 1DR GETS ODR CONTENTS) 
MOV #52525 .aBDR :SET ALT O'S AND 1°S TO BOR 
MOV @BOR, RBOR “MOVE RECEIVED DATA TO RBOR 
CMP #52525, RBDR [SEE IF DATA WAS LOADED PROPERLY 
BEQ 1$ :BRANCH IF IT WAS 
MOV #52525,EBDR [MOVE EXPECTED DATA TO EBDR 
ERROR +31 [BDR PATTERN NOT CORRECT 
1$: BIS #EIR, CSR 


760 TO EIR 
MOV #52525, EBOR [MOVE EXPECTED DATA TO EBDR 
MOV #125252. aBDR ‘SET ALT 1°S AND O'S TO BOR 


MOV ;MOVE RECEIVED DATA TO RBOR 
CMP #e0858° RBDR TEST FOR OLD PATTERN 

BEQ 2$ ‘BRANCH IF ORIGINAL PATTERN STILL THERE 

MOV #52525, EBDR [MOVE EXPECTED DATA TO EBOR 

ERROR +30 ‘BDR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN 


2$: JSR PC,CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 


re CC} 


8 8 
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TEST #15 = DR11 INTERRUPTS WITH CPU AT LEVEL SEQ 0092 
1941 .SBTTL TEST #15 = DR11 INTERRUPTS WITH CPU AT LEVEL 3 
FRARAAAAARARAERAEEREEEAAAAAEAEAERERAAARATERARARAEAAARARHAAAARARAKARAES 
TEST 15 DR11 INTERRUPTS WITH CPU AT LEVEL 3 
a THIS TEST INSURES THAT THE DR11 WILL INTERRUPT WITH THE CPU PRIORITY 
3 AT LEVEL 3. 
*® 
[eeeeeeeeeeneneeeeeeeeereteeeereeeeeeeeeeeeeenneneerererereenterere 
014406 TST15: 
014406 000004 SCOPE PROCESS LOOPING. AND TEST NUMBER INCREMENT 
014410 012737 014416 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999$ 
1942 014616 012777 010000 166100 $99$: MOV WMA, aCSR SET MAINTENANCE OBIT AND 
1943 014424 005077 166074 CLR acsr “CLEAR CSR TO DO AN INIT 
1944 014430 012737 000140 177776 MOV #LEVEL3, PSW :STATUS AT LEVEL 3 
1945 014436 017737 166062 002562 MOV a@CSR,RCSR “MOVE CSR CONTENTS T RCSR 
1946 014444 105737 002562 TSTB so RCS “SEE IF READY BIT (Bit 7) IS SET 
1947 014450 100406 - BMI 1$ ‘BRANCH IF IT IS 
1948 014452 012737 000200 002574 MOV #RY,ECSR SET THE BIT THAT SHOULD HAVE BEEN SET 
1949 014460 004737 004060 JSR PC, CHKCAB 60 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
1950 014464 104022 ERROR +22 ‘READY OF CSR WAS NOT SET 
1951 014466 017737 166036 002534 1$: MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
1952 014474 017737 166032 002536 MOV @DRVS, SORVS “SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
1953 014502 012777 014572 166020 MOV #3$,aDRINV “SET UP INTERRUPT VECTOR 
1954 014510 012777 010000 166006 MOV #MA.acsR ‘MAINT MODE 
1955 014516 012737 001000 002662 MOV #1000, TIME [SET THE TIME COUNTER 
1956 014524 052777 000105 165772 BIS HIE*FE*60, @acsR :1E, FNCT2 AND GO 
1957 014532 005337 002662 2$: DEC TIME : DECREMENT DOWN TO ZERO 
1958 145 001375 BNE 2$ “BRANCH IF NOT THERE YET 
1959 014540 017737 165760 002562 MOV @CSR,RCSR [MOVE RECEIVED DATA TO RCSR 
1960 014546 013777 002534 165754 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
1961 014554 013777 002536 165750 MOV SDRVS, @DRVS “RESTORE LOCATION USED AS THE INTERRUPT PS 
1962 014562 104035 ERROR +35 :DR11 FAILED TO INTERRUPT 
1963 014564 005077 165734 CLR acsr “CLEAR THE CSR TO DO AN INIT 
1964 014570 000410 BR TST16 ‘BRANCH TO THE NEXT TEST 
1965 014572 062706 000004 3$: ADD #4,SP “CLEAN THE STACK AFTER THE INTERRUPT 
1966 014576 013777 002534 165726 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
1967 014604 013777 002536 165720 MOV SDRVS ,aDRVS “RESTORE LOCATION USED AS THE INTERRUPT PS 
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TEST #16 = DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 


-SBTTL TEST #16 = DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7 


FRRRAAAAARAREREAHEREEAEE EERE AEAERAAAAAEERAERAAAAAAAEAAAERERER AAT TE 


DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7 


1974 


OO000 
SSVES 
ooo 
bh se 
ane 

VN 

r&S 
COCOCOCOOO—co 


14750 


a ek ad ad ed od 
VeFUnN— 


PEPE ET ESES 


mr 
S 
— 


23 
mo 
NO 


——O 
332s 


So 
= 
pated tatty eet ate 
~“ oNNNS 
w 
GN 


IN 
IN 
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Vw OW 
AANN 
NNW! 
sSNN 


22888 


&3 


017737 


014622 


002562 
000200 
004060 
000200 


165640 


002662 
165554 
092534 
002536 


000004 


002536 
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001310 
002562 


002574 
002574 
002534 


002562 


165516 
165512 


seTest 16 


: 
® 


Se Be ee = 
a 


TST16: 


o99$: 


1$: 


2$: 


3$: 


THIS TEST_INSURES THAT THE DR11 FAILS TO INTERRUPT WITH THE 
AT LEVEL 7. 


#999$ ,SLPERR 
PC,CLENUP 
@CSR,RCSR 
RCSR 


1$ 

#RY,ECSR 
PC ,CHKCAB 
RY,ECSR 


+22 
Q@DRINV,SORINV 
@DRVS,SORVS 
#3$,aDRINV 
#LEVEL7,aDdRVS 
#1000, TIME 
#MA,acSR 
#1E+F2+G0,acsR 
TIME 


23 

acsR 
SDRINV,@DRINV 
SORVS ,@DRVS 
TST17 

#4,SP 
@CSR,RCSR 
acsr 
SDRINV,@DRINV 
SDRVS,aDRVS 
+36 


CPU PRIORITY 


REAR AAAAARERAEREREERAEEAAEAAAAAAAAAAAARAAAAAAEAEAAAEAAAAAAERAAAAAAEEE 


;PROCESS LOOPING AND TEST NUMBER INCREMENT 
:SET LOOP ON ERROR TO 9998 

;SUBROUTINE TO CLEAR ene REGISTERS & SET CPU PRI TO 7 
:MOVE CSR DATA TO RCSR 

;CLEAR ALL BUT THE READY BIT (BIT 7) 

;BRANCH IF IT IS SET 

;MOVE EXPECTED DATA TO ECS 

+e CHECK CABLE STATUS AND FALTER EXPECTED IF NECESSARY 
;SET THE BIT THAT SHOULD HAVE BEEN SET 

;READY OF CSR WAS NOT SET 

;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 

:SAVE LOCATION TO BE USED AS THE INTERRUPT PS 

;SET UP INT VECTOR 


:SET he DELAY COUNTER 
:M . MODE 


:IE, FNCT2 AND GO 

SDECREMENT UNTIL WE GET TO ZERO 

;BRANCH BACK IF NOT ZERO YET 

;CLEAR THE CSR TO DO AN INIT 

:RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
;RESTORE LOCATION USED AS THE INTERRUPT PS 
;BRANCH TO THE NEXT TEST 

sRESTORE STACK 

;MOVE a meta DATA TO RCSR 


LEAR 
RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
sRESTORE LOCATION USED AS THE INTERRUPT PS 
:DR11 INTERRUPTED, BUT IT SHOULDN'T HAVE 
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TEST #17 = DR11 INTERRUPTS AT CORRECT BR LEVEL SEQ 0094 


2008 -SBTTL TEST #17 = DOR11 INTERRUPTS AT CORRECT BR LEVEL 
FRRAAERAAERAAAAEAEAAAEAA EEA EAEAEAAAAAAARAAREHERARAAERARAAERAARAEREE 
s*TEST 17 DR11 INTERRUPTS AT CORRECT BR LEVEL 
7* THIS TEST INSURES THAT THE DR11 WILL INTERRUPT AT THE CORRECT LEVEL AS 
58 DEFINED IN THE DEVICE DESCRIPTOR WORD. 
*® 
Seeeeeeeeeeeeeeeeeeeeeeeteredeereneeeeeeeeneneneeereneereneeererert 
015022 TST17: 
015022 000004 SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
015024 012737 015106 001310 MOV #999$ ,SLPERR :SET LOOP ON ERROR TO 999$ 
2009 015032 004737 004036 JSR PC,CLENUP : SUBROUT INE TO CLEAR DEVICE ayes & SET CPU PRI 10 7 
2010 015036 013737 002720 001362 MOV DOW, STMP1 MOVE DEVICE DESCRIPTOR WORD TO $TM 
2011 015 006237 001362 ASR TMP1 sSHIFT THE LEVEL TO THE RIGHT 5 Paces 
2012 015050 006237 001362 ASR STMP1 
2013 015054 006237 001362 ASR $TMP1 
2014 015060 006237 001362 ASR STMP1 
2015 015 006237 001362 ASR $TMP1 
2016 015070 042737 177770 001362 BIC #177770,$TMP1 +o ee ALL BUT THE PRIORITY 
2017 015076 012700 000003 1$: MOV #3, 0 3 PRIORITY LEVELS 
2018 015102 012701 005264 MOV #LEVELS,R1 ROVE ADDRESS OF CPU PRIORITIES TO R1 
2019 015106 012777 010000 165410 9998: MOV #MA,aCSR SET THE MAINTENANCE BIT AND 
2020 015114 005077 165404 CLR acsr “CLEAR TO DO AN INIT 
2021 015120 011137 177776 MOV (R1),PSW ;PUT PRIORITY INTO PSW 
2022 015124 017737 165374 002562 MOV acSR,RCSR > MOVE RECEIVED DATA TO RCSR 
2023 015132 012737 000200 002574 MOV #RY,ECSR :MOVE READY BIT TO ECSR 
2024 015140 004737 004060 JSR PC,CHKCAB 3GO0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
025 015144 023737 2562 002574 CMP RCSR,ECSR +43 IF RECEIVED DATA MATCHES EXPECTED 
026 015152 001412 BEQ RANCH IF OK 
2027 015154 012737 015076 001310 MOV #1$,SLPERR SET UP FOR POSSIBLE LOOP ON ERROR FOR THIS ERROR ONLY 
2028 015162 012737 000200 002574 MOV #RY.ECSR ;MOVE EXPECTED DATA TO ECSR 
2029 015170 104022 ERROR +22 sREADY OF CSR WAS NOT SET 
2030 015172 012737 015106 001310 MOV #999$,,SLPERR RETURN ORIGINAL LOOP ON ERROR ADDRESS - DID NOT LOOP 
2031 015200 017737 165324 002534 2$: MOV @DRINV,SDRINV sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
2032 015206 017737 165320 002536 MOV @DRVS,SDRV sSAVE LOCATION TO BE USED AS THE INTERRUPT PS 
2033 015214 012777 015326 165306 MOV #4$,a0R1 :SET UP INTERRUPT VECTOR 
2034 015222 012777 000340 165302 MOV #LEVEL7, aDRVS :SET UP INTERRUPT PS 
2035 015230 012777 010000 165266 MOV wma, acs NT MODE 
2036 015236 012737 000400 002662 MOV #406, TIME eer DELAY COUNTER 
2037 015244 052777 000105 165252 BIS Hlevi2v60, acsR :IE, FNCT2 AND GO 
2038 015252 005337 002662 3$: DEC TIME : se eRENENT UNTIL WE GET TO ZERO 
2039 015256 001375 BNE 3$ ‘BRANCH BACK IF NOT ZERO YET 
204C 015260 005077 165240 CLR acsr ;CLEAR CSR TO DO AN INIT 
2041 015264 013777 002534 165236 MOV SORINV,@DRINV *RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
sone 015272 013777 002536 165232 MOV SDRVS ,@DRVS sRESTORE LOCATION USED AS THE INTERRUPT PS 
2043 015300 013737 177776 002542 MOV PSW,LEVEL ‘SAVE OLD STATUS LEVEL 
2044 015306 005721 TST (R1)+ : INCREMENT R1 TO POINT TO NEXT PRIORITY LEVEL 
2045 015310 005300 DEC RO DECR EMENT LOOP COUNTER AND 
sone 015312 001275 BNE 999% ‘BRANCH BACK FOR nos tha. TRY IF NOT DONE 
2047 015314 104053 ERROR +53 *DR11 FAILED TO INTERRUPT 
2048 015316 013737 002554 002542 MOV DRLEV, LEVEL :SET LEVEL TO yp a WHE ANTICIPATED LEVEL 
2049 015324 000422 BR TST20 ‘BRANCH TO THE NEXT TEST 
2050 Het peers 000004 4$: ADD #4,SP RESTORE STACK 
2051 015332 005077 165166 CLR acsr ‘CLEAR IE 
2052 015336 013777 002534 165164 MOV edhe @DRINV *RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2053 015344 013777 002536 165160 MOV SOR aDRVSs *RESTORE LOCATION USED AS THE INTERRUPT PS 
2054 015352 042737 177437 002542 BIC bie tae LEVEL :CLEAR ALL BITS BUT THE BR LEVEL 
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TEST #17 = DR11 INTERRUPTS AT CORRECT BR LEVEL 


$02? 
2056 
2057 


15 
15 
15 


300 gear ae 002542 002554 
370 104052 
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»DRLEV 


+43 IF LEVEL INTERRUPTED MATCHES EXPECTED 
;BRANCH AROUND ERROR CALL IF IT IS AS EXPECTED 
:D0R11 INTERRUPTED AT WRONG LEVEL 
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TEST #20 = A GO WITHOUT CLEARING ERROR CAUSES INTRPT SEQ 0096 
2064 .SBTTL TEST #20 - A GO WITHOUT CLEARING ERROR CAUSES INTRPT 
FRRAAAAAAAAAEAAEAAEAAAAAEAAEA TERETE AARAAAAAERAEAAAAAAAAEAAAEREKARAENE 
:sTEST 20 A GO WITHOUT CLEARING ERROR CAUSES INTRPT 
ce THIS TEST INSURES THAT SETTING THE GO BIT WITHOUT CLEARING THE ERROR 
:* BIT CAUSES AN INTERRUPT. 
Seeeeeeteeeneeeeeeteeteceeerereeeeeneeeerereeeeeeeerenereerenereret 
015372 TST20: 
015372 000004 SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
015374 012737 015402 001310 MOV #999$,SLPERR | :SET LOOP ON ERROR TO 999$ 
2065 015402 004737 004036 609$: JSR PC, CLENUP :SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
2066 015406 017737 165116 002534 MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
2067 015414 017737 165112 002536 MOV @DRVS , SORVS ‘SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
2068 015422 012777 015524 165100 MOV #2$,a0RINV ‘INTERRUPT VECTOR TO 3$ 
2069 015430 012777 000140 165074 MOV #LEVEL3,@DRVS : INTERRUPT STATUS TO LEVEL 3 
2070 015436 005037 177776 CLR PSW ‘LET THE DR11 INTERRUPT 
2071 015442 012737 001000 002662 MOV #1000, TIME ‘MOVE DELAY COUNTER TO LOCATION 
2072 015450 012777 010101 165046 MOV #MA+IE+GO,@CSR :SET MAINT, IE AND GO 
2073 015456 052777 020004 165040 BIS #AT+F2,aCSR :SET ATTN AND FNCT2 
2074 015464 005337 002662 1$: DEC TIME SDECREMENT UNTIL WE REACH ZERO 
2075 015470 001375 BNE 1$ [BRANCH IF NOT ZERO YET 
2076 015472 013777 002534 165030 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2077 015500 013777 002536 165024 MOV SDRVS ,aDRVS “RESTORE LOCATION USED AS THE INTERRUPT PS 
2078 015506 017737 165012 002562 MOV aCSR,RCSR ‘MOVE RECEIVED DATA TO RCSR 
2079 015514 104035 ERROP © +35 :DR11 FAILED TO INTERRUPT 
2080 015516 005077 165002 CLR acsr [CLEAR THE CSR TO DO AN INIT 
2081 013522 000512 BR TS§121 ‘BRANCH TO THE NEXT TEST 
082 015524 062706 000004 2$: afd #4 ,SP “READJUST STACK AFTER THE INTERRUPT 
2083 015530 013777 002534 164772 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2084 015536 013777 002536 164766 MOV SDRVS ,aDRVS ‘RESTORE LOCATION USED AS THE INTERRUPT PS 
2085 015544 017737 164754 002562 MOV aCSR,RCSR ‘MOVE RECEIVED DATA TO RCSR 
2086 015552 100407 BMI 3$ ‘BRANCH IF ERROR IS SET 
2087 015554 013737 002562 002574 MOV RCSR,ECSR [MOVE EXPECTED DATA TO ECSR 
2088 015562 052737 100000 002574 BIS #ER,ECSR “SET THE BIT THAT SHOULD HAVE BEEN SET 
2089 015570 104037 ERROR +37 :ERROR BIT SHOULD NOT BE CLEAR 
2090 015572 017737 164732 002534 3$: MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
2091 015600 017737 164726 002536 MOV @DRVS, SDRVS [SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
2092 015606 012777 015702 164714. MOV #5$,aDRINV S INTERRUPT VECTOR TO 
2093 015614 005077 164702 CLR aBAR i PREVENT {CAUSING ANOTHER ERROR 
015620 012777 177777 164672 MOV #-1,awCcR SET-U 
2095 015626 012737 001000 002662 MOV #1000, TIME SLOAD 1000. IN LOCATION TIME FOR WAIT LOOP 
09 015634 052777 000001 164662 BIS #G0,aCSR SET ° N CSR 
2097 015642 005237 002662 4$: INC TIME BELAY’ - it FOR INTERRUPT 
2098 015646 001375 BNE 4$ {BRANCH BACK IF NOT ZERO 
2099 015650 013777 002534 164652 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2100 015656 013777 002536 164646 MOV SDRVS ,aDRVS “RESTORE LOCATION USED AS THE INTERRUPT PS 
2101 015664 017737 164634 002562 MOV @CSR,RCSR i MOVE RECEIVED DATA TO RCSR 
2102 015672 104035 ERROR +35 [DR11 FAILED TO INTERRUPT 
2103 015674 005077 164624 CLR acsr ‘CLEAR CSR TO DO AN INIT 
2104 015700 000423 BR $121 ‘BRANCH TO THE NEXT TEST 
2105 015702 06 706 000004 5$: ADD #4 SP ‘CLEAN UP STACK AFTER INTERRUPT 
2106 015706 013777 002534 164614 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2107 015714 013777 002536 164610 MOV SDRVS ,a@DRVS ;RESTORE LOCATION USED AS THE INTERRUPT PS 
2108 015722 017737 164576 002562 MOV aCSR_RCSR MOVE RECEIVED DATA TO RCSR - IS ERROR CLEAR 
2109 015730 100007 BPL TST24 BRANCH TO NEXT TEST IF IT IS 
2110 015732 013737 002562 002574 MOV RCSR,ECSR [MOVE EXPECTED DATA TO ECSR 


ee 
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TEST #20 - A GO WITHOUT CLEARING ERROR CAUSES INTRPT 


2111 015740 042737 100000 002574 BIC WER,ECSR ;CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 
2112 015746 104021 ERROR +21 ;ERROR BIT SHOULD HAVE BEEN CLEAR 
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MODE TRANSFERS SEQ 0098 
.SBTTL TEST #21 = FUNCTION BITS INC WITH MAINT MODE TRANSFERS 
FRRAAAAAKARARAAAKAATAKAEAAAAKAKEKAAKEKeAKeeKeTeKAAHeeKeKeKaeenenenes 
SeTEST 21 FUNCTION BITS INC WITH MAINT MODE TRANSFERS 
;* 
ie THIS TEST INSURES THAT THE FUNCTION BITS INCREMENT WITH MAINTE” “NCE 
:e MODE TRANSFERS. 
‘® 
Seeeeeneeeneeeeeererererereeeeereeereeereenereteerererereereneerete 
TST21: 
:PROCESS LOOPING AND TEST NUMBER INCREMENT 
#999$,SLPERR | :SET LOOP ON ERROR TO 999$ 
#16, $TMP2 :SET UP FUNCTION COUNT COMPARE 
#-7.$TMPO ‘SET UP WCR LOAD VARIABLE 
999$: PC, CLENUP ‘SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
INBUF , @BAR :SET-UP BAR 
1$: QDRINV,SDRINV SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
@DRVS, SDRVS ‘SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
#3$, aDRINV ‘INTERRUPT VECTOR 
LEVEL ,aDRVS ‘INTERRUPT VECTOR PRIORITY TO LEVEL OF DEVICE 
STMPO.aWCR “SET UP FOR NUMBER OF TRANSFERS IN STMPO 
PSW “LET THE OR11 INTERRUPT 
#MA,aCSR ‘MAINT MODE 
#1000, TIME “MOVE WAIT COUNTER TO LOCATION TIME 
#IE*CY*+GO,aCcSR :1E, CYCLE & GO 
2$: TIME :DECREMENT UNTIL ZERO 
2$ “BRANCH BACK IF NOT 
@CSR,RCSR [MOVE RECEIVED DATA TO RCSR 
SDRINV, @DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
SDRVS ,@DRVS “RESTORE LOCATION USED AS THE INTERRUPT PS 
+35 [DR11 FAILED TO INTERRUPT 
acsr ‘CLEAR THE CSR TO DO AN INIT 
T$122 ‘BRANCH TO NEXT TEST 
3$: #4 ,SP ‘CLEAN UP STACK AFTER INTERRUPT 
SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
SDRVS ,aDRVS “RESTORE LOCATION USED AS THE INTERRUPT PS 
aCSR,RCSR “MOVE RECEIVED DATA TO RCSR 
RCSR.R1 “MOVE RECEIVED DATA TO R1 ALSO AND 
#CFNC,RI “CLEAR ALL BUT THE FUNCTION BITS 
R1, STMP2 ‘SEE IF FUNCTION BIT(S) HAD INCREMENTED PROPERLY 
4$ ‘BRANCH IF THEY HAD 
RCSR,E2SR “MOVE RECEIVED DATA TO EXPECTED LOCATION 
#FNC.ECSR “CLEAR THE FUNCTION BIT(S) THAT WERE THERE AND 
STMP2,ECSR [PUT FUNCTION BIT(S) EXPECTED IN THEIR PLACE 
#212 “FUNCTION BITS DIDN'T INCREMENT IN MAINT MODE 
4$: $TMPO ‘ADJUST WCR LOAD LOCATION 
#2, $TMP2 “SUBTRACT 2 FROM FUNCTION COUNT TEST LOCATION 
1$ “BRANCH BACK FOR ANOTHER TRY 
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-SBTTL TEST #22 - TEST FOR 10 MAINT MODE TRANSFERS 


FRRAAARAAAAAAAAAAERE REET EEA E REE RERAEAAAEAAREEAAEHAAAAAAAAAAAAAAEATE 


;*TEST 22 


TST22: 


999$: 


1$: 


23: 
3$: 


TEST FOR 10 MAINT MODE TRANSFERS 
THIS TEST CHECKS IF 10 MAINTENANCE MODE TRANSFERS CAN BE DONE. 


#999 ,SLPERR 
acsR 
#10,BUFLEN 
—— 


WCLEN 

PC ,LODBUF 
PC ,CHKBFF 
WCLEN,@WCR 
INBUF ,@BAR 
#-1,aBDR 
@DRINV,SORINV 
@DRVS,SDRVS 
#2%,aDRINV 
LEVEL ,@DRVS 
PSW 


#MA,aCSR 
#1E+CY+G0,acsR 
#1000, TIME 
Fe 


$ 
SORINV,@DRINV 
SDRVS ,aDRVS 
@CSR,RCSR 

+35 

acsr 

3$ 


#4,SP 

SDRINV, @DRINV 
SDRVS ,aDRVS 
PC,INTA 

+54 

ERRCNT 
PC,DATCHK 
+201 

PC ,DATCH2 


SRERAAAAAEAEAAARERERAEKAATAEAAEAAERAAAAEARAAAAAAEAAAAAAAAEAATATAAAEREE 


;PROCESS LOOPING AND TEST NUMBER INCREMENT 
:SET LOOP ON ERROR TO 999$ 

;FORCE ACCESS TO CSR 

; BUF LEN=10 

;PREPARE NUMBER FOR a 

:2'S COMPLEMENT OF BUFLEN 

[LOAD IN BUFFER WITH INCREMENTING PATTERN 

ew yee BUFFER WITH MODIFIED INCREMENTING PATTERN 


7 SET UP BAR 

:MAINT AIDE 

;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
;SAVE LOCATION bs BE USED AS THE INTERRUPT PS 

; INTERRUPT VECTOR 

SINTERRUPT STATUS - PRIORITY LEVEL OF DEVICE 
LET DR11_ INTERRUPT 

;MAINT MODE 

:1€, CYCLE & GO 

:SET LOOP COUNTER FOR WAIT 

;DECREMENT UNTIL WE GET TO ZERO 

:BRANCH BACK IF NOT ZERO 

jRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
;RESTORE LOCATION USED AS THE INTERRUPT PS 

:MOVE RECEIVED DATA TO RCSR 

;0R11 FAILED TO INTERRUPT 

;CLEAR THE CSR TO DO AN INIT 

BRANCH AROUND THE STACK CLEANUP 

CLEAN UP STACK AFTER THE INTERRUPT 

TRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
;RESTORE LOCATION USED AS THE INTERRUPT PS 

3G0 CLEAR IE, CHECK ERROR, READY, WCR= : AND BAR 
CSR AND-OR WCR AND-OR BAR ARE INCORECT 

:CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
CHECK INBUF AFTER A MAINTENANCE MODE OPERATION 
:BUFFER DATA NOT CORRECT 

;GO0 BACK TO SUBROUTINE AFTER ERROR RIS IN DATCHK 
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TEST #23 = TEST 10 MAINTENANCE MODE XFERS SEQ 0100 
2203 -SBTTL TEST #23 = TEST 10 MAINTENANCE MODE XFERS 
SRAAARAAAAEEAAAAEAAAA AEA AAEEAAAAATAAAAAERAAAAAAAAEARAAAKERAAAAARAE EE 
SeTEST 23 TEST 10 MAINTENANCE MODE XFERS 
ie 
3 THIS TEST CHECKS THAT 10 MAINTENANCE MODE TRANSFERS, ATTEMPTED BEFORE 
3* SERVICING A PENDING INTERRUPT OF A PREVIOUS TRANSFER, ARE UNSUCCESSF\L. 
*® 
Seeeeeeeeeeneneteeeeeeneeeereretenenereneeeeerenerereereerenetenes 
016506 $123: 
016506 000004 SCOPE sPROCESS le inka .' TEST NUMBER INCREMENT 
016510 012737 016516 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999$ 
2204 016516 004737 004036 099$: JSR PC,CL é NUP : SUBROUT INE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
2205 016522 012737 001000 002662 MOV #1600, T1RE :SET DELAY 
2206 016530 012737 000010 002624 MOV #10, BUFLEN :BUFLEN=10 
2207 016536 013737 002624 002632 MOV BUFLEN, WCLEN ; PREPARE NUMBER FOR WCR 
2208 016544 005437 002632 NEG WCLEN 32! S COMPLEMENT OF BUFLEN 
2209 016550 004737 003472 JSR PC ,LODBUF sLOAD IN BUFFER WITH INCREMENTING PATTERN 
2210 016554 004737 003520 JSR PC. CHKBFF LOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN 
2211 016560 013777 002632 163732 MOV WCLEN, awcr :SET UP WCR 
2212 016566 013777 002620 163726 MOV INBUF , @BAR ‘SET uP BAR 
2213 016574 012777 177777 163724 MOV #-1,aBDR ‘MAINT AIDE 
2214 016602 017737 163722 002534 MOV aDRINV, SORINV : SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
2215 016610 017737 163716 092536 MOV adRvs, SDRVS : SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
2216 016616 012777 016716 163704 MOV #2$,aDRINV S INTERRUPT VECTOR 
2217 016624 013777 002542 163700 MOV LEVEL, @DRVS : INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE 
2218 016632 012777 010000 163664 MOV #MA,acsR MAIN NT MODE 
2219 016640 052777 000501 163656 BIS #IE*CY*6O, acsrR :1E, CYCLE & GO 
$330 01664 O0333f 002662 1$: DEC IME “WAIT FOR TRANSFERS TO COMPLETE 
1 016652 001375 BNE i$ ‘BR ANCH BACK IF WE ARE STILL WAITING 
2222 016654 013777 002534 163646 MOV SDORINV.@DRINV “RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2223 016662 013777 002536 163642 MOV SDRVS ,a@DRVS sRESTORE LOCATION USED AS THE INTERRUPT PS 
2224 016670 73 003546 JSR PC,INTA :GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
2225 016674 104051 ERROR +54 ;CSR AND-OR WCR AND-OR BAR ARE INCORECT 
2226 016676 005037 002716 CLR ERRCNT CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
2227 016702 004737 003716 JSR PC, ,DATCHK sCHECK INBUF AFTER A MAINTENANCE MODE OPERATION 
2228 016706 104201 ERROR +201 “BUFFER DATA NOT CORRECT 
2229 016710 004737 004014 JSR PC ,DATCH2 3G0 BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK 
2230 016714 000415 BR 3$ BRANCH TO CONTINUE 
2231 016716 062706 000004 2$: ADD #4,SP CLEAN UP THE STACK FROM THIS INTERRUPT 
2232 016722 013777 002534 163600 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2233 0167 013777 002536 163574 MOV SORVS ,@DRVS RESTORE LOCATION USED AS THE INTERRUPT PS 
2234 016736 017737 163562 002562 MOV aCSR,RCSR MOVE RECEIVED DATA TO RCSR 
2235 016744 104036 ERROR +36_ DR11 INTERRUPTED, BUT IT SHOULDN'T HAVE 
2236 016746 000523 BR TSTe4 : BRANCH TO NEXT TEST 
2237 016750 012777 010000 163546 3S: MOV #MAaCSR ‘MAINT MODE 
2238 016756 012737 001000 002662 MOV #1000, TIME [SET TIME LOOP COUNTER 
2239 016764 013777 002632 163526 MOV WCLEN, awCR {MOVE WCLEN TO WCR 
2240 016772 013777 002620 163522 MOV INBUF .@BAR MOVE INBUF TO BAR 
2241 017000 017737 163524 002534 MOV @DRINV,SDORINV ‘SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
soot 017 017737 163520 og ted MOV @DRVS,SORVS : SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
243 017014 012777 017166 163506 MOV #8$,aDRINV SET UP INTERRUPT VECTOR 
2b 017022 012777 010000 163474 MOV #MA.acsR MAINT MODE 
265 017030 052777 000501 163466 BIS #IE*CY*#GO,aCSR :1E, CYCLE & GO 
sse6 017036 005337 002662 4$: DEC TIME :DECREMENT TO ~ WHILE WAITING 
2247 017042 001375 BNE 4$ ‘BRANCH BACK IF NOT ZERO 
2248 017044 013777 002534 163456 MOV SORINV,@DRINV *RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2249 017052 013777 002536 163452 MOV SORVS ,@DRVS “RESTORE LOCATION USED AS THE INTERRUPT PS 


a 
yt GEN NPR INTFC MACRO M1113 22-AUG-80 13:42 PAGE io 1 
#23 = TEST 10 MAINTENANCE MODE XFERS SEQ 0101 
0 017060 0177 ? 163440 002562 MOV sMOVE RECEIVED DATA TO RCSR 
1 017066 022737 010700 002562 CMP FiOTOOLRSR “SEE IF ONLY READY, MAINT, IE & CYCLE ARE SET 
g 017074 HEH BEQ 5$ ‘BRANCH IF THEY AR 
017076 012737 010700 002574 MOV #10700,ECSR sMOVE EXPECTED DATA TO ECSR 
4 017104 104040 ERROR +40 [CSR 1S WRONG 
§ 017106 017737 163410 002570 5$: MOV @BAR,RBAR MOVE RECEIVED DATA TO RBAR 
6 017114 022777 177770 163376 CMP #-10,awCR ;CHECK THAT NO eget WERE MADE 
7 017122 001004 BNE 6$ ‘BRANCH TO ERROR IF THERE WERE 
8 aT 023737 002620 002570 CMP INBUF ,RBAR sCHECK THAT NO soaak iF WERE MADE 
9 017132 001412 BEQ 7$ ‘BRANCH AROUND ERROR IF NONE 
017134 017737 163360 002572 6$: MOV aWCR,RWCR [MOVE RECEIVED BATA TO RWCR 
017142 612737 177770 002604 MOV #-10,EWCR ‘MOVE EXPECTED DATA TO EWCR 
017150 013737 002620 002602 MOV INBUF, EBAR [MOVE EXPECTED DATA TO EBAR 
017156 104041 ERROR s TRANSFERS SHOULD sy! ie INHIBITED 
017160 005077 163340 7$: CLR acse *CLEAR THE CSR TO DO AN INIT 
5 017164 000414 BR TST24 ‘BRANCH TO NEXT TEST 
017166 2706 000004 8$: ADD #4,SP ;CLEAN UP STACK AFTER INTERRUPT 
7 017172 013777 002534 163330 MOV SDRINV, @DRINV * RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
017200 013777 002536 163324 MCV SDRVS ,aDRVS sRESTORE LOCATION USED AS THE INTERRUPT PS 
9 017206 017737 163312 002562 MOV @CSR,RCSR > MOVE RECEIVED DATA TO RCSR 
0 017214 104042 ERROR +42 7DR11 SHOULD NOT HAVE INTERRUPTED A 2ND TIME 


wd 
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TEST #24 = TEST FOR 200 NPR TRANSFERS IN MAINT MO SEQ 0102 
2276 .SBTTL TEST #24 = TEST FOR 200 NPR TRANSFERS IN MAINT MODE 
FRAAARAAAAAAAAAAAEAAAAEEAATERAAAAETAAAAHEAAAAAAAAAAEAAAAERAAEAAAEAAES 
T*TEST 24 TEST FOR 200 NPR TRANSFERS IN MAINT MODE 
;* 
ie THIS TEST CHECKS FOR 200 NPR TRANSFERS IN MAINTENANCE MODE. 
*® 
Seeeteeeeeeteeeeerterenereeeeteenereeeeeeeeeneneenereeneeererereree 
017216 TST24: 
017216 000004 SCOPE sPROCESS pt QOPING AND TEST NUMBER INCREMENT 
017220 012737 017226 001310 MOV #999$,S$LPERR | :SET LOOP ON ERROR TO 999$ 
2277 017226 737 004036 999$: JSR PC, CLENUP {SUBROUTINE TO COEAR Opevice REGISTERS & SET CPU PRI 107 
2278 017232 005077 163266 CLR acsr *FORCE ACCESS TO CSR 
2279 017236 012737 000200 002624 MOV #200 ,BUFLEN ‘LENGTH OF BUFFER = 200 
2280 017244 013737 002624 002632 MOV BUFLEN,WCLEN § ;:PREPARE NUMBER FOR WCR 
2281 017252 005437 002632 NEG WCLEN :2'S COMPLEMENT OF BUFLEN 
2282 017256 004737 003472 JSR PC ,LODBUF “LOAD INBUF WITH INCREMENTING PATTERN 
2283 017262 004737 003520 JSR PC. CHKBF F [LOAD CHKBUF WITH MODIFIED INCREMENTED PATTERN 
2284 017266 013777 002632 163224 MOV WCLEN, awcR ‘SET UP WCR 
2285 017274 013777 002620 163220 MOV INBUF ,@BAR :SET uP BAR 
2286 017302 012777 177777 163216 MOV #-1,aBDR :MAINT AIDE 
2287 017310 017737 163214 002534 MOV @DRINV,SORINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
2288 017316 017737 163210 002536 MOV @DRVS, SORVS *SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
2289 017324 012777 017426 163176 MOV #2$,aDRINV SINT VECTOR 
2290 017332 013777 002542 163172 MOV LEVEL ,@DRVS ‘INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE 
2291 017340 005037 177776 CLR ‘LET THE DR11 INTERRUPT 
2292 017344 012777 01 163152 MOV one acsr [MAINT MODE 
2293 017352 012737 001000 002662 MOV #1060, TIME ise WAIT LOOP COUNTER 
329k O17 03 777, 000501 163136 BIS #IE*CY +60, acsr LE & GO 
95 017 337 002662 1$: DEC TIME TF cREMENT UNTIL WE GET TO ZERO 
2296 017372 001375 BNE 1$ sORANEN BACK IF NOT ZERO 
2297 017374 017737 163124 002562 MOV @CSR,RCSR ‘MOVE RECEIVED DATA TO RCSR 
2298 017402 013777 002534 163120 MOV SDRINV, @DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2299 017410 013777 002536 163114 MOV SDRVS ,a@DRVS *RESTORE LOCATION USED AS THE INTERRUPT PS 
2300 017416 104043 ERROR +43 SEXPECTED INTERRUPT DID NOT OCCUR 
2301 017420 005077 163100 CLR acsr ‘CLEAR THE CSR TO DO AN IK iT 
2302 017424 000402 BR 3$ ‘BRANCH AROUND THE STACK CLEANUP 
2303 017426 062706 000004 2$: ADD #4,SP ‘CLEAN UP THE STACK AFTER TATERRU PT 
2304 017432 013777 002534 163070 3$: MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2305 017440 013777 002536 163064 MOV SDRVS ,aDRVS ‘RESTORE LOCATION USED AS THE INTERRUPT PS 
2306 017446 004727 003546 JSR :GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
2307 017452 104051 ERROR +54 =CSR AND-OR WCR AND-OR BAR ARE INCORRECT 
2308 017454 005037 002716 CLR ERRCNT ‘CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
230$ 017460 004737 003716 JSR PC .DATCHK ‘CHECK INBUF AFTER A MAINTENANCE MODE OPERATION 
2310 017464 104201 ERROR +201 ‘BUFFER DATA NOT CORRECT 
2311 017466 004737 004014 JSR PC ,DATCH2 ‘GO BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK 
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TEST #25 = DOING DATO TO DIODE MEMORY CAUSES N SEQ 0103 


2318 .SBTTL TEST #25 = DOING DATO TO DIODE MEMORY CAUSES NEX 
FRRAAHAAAAAATAAAAAEAAAAAAAAAAAAEAAAAEAAEEAAAAAAAAEHERAERAAAEARATEE AE 
TEST 25 DOING DATO TO DIODE MEMORY CAUSES NEX 
a THIS TEST INSURES THAT DOING A DATO TO DIODE MEMORY CAUSES THE NEX BIT 
;* (BIT 14) TO SET 
*® 
PI sete ES iC a. 5 BU ore ie 
017472 TST25: 
017472 000004 SCOP sPROCESS LOOPING AND TEST NUMBER INCREMENT 
017474 612737 017502 001310 MOV #999$,SLPERR | :SET LOOP ON ERROR TO 9 
2319 017502 004737 004036 699$: JSR PC, CLENUP > SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
2320 017506 005077 163012 CLR acsr FORCE ACCESS TO CSR 
2321 017512 012777 177776 163000 MOV #-2,aWCR 7SET UP W 
2322 017520 013777 002616 162774 MOV DIOMEM, @BAR i ET UP BAR 
2323 017526 017737 162776 002534 MOV @DRINV,.SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
2324 0175 017737 logis 002536 MOV @DRVS,SORVS : SAVE LOCATION TO a USED AS THE INTERRUPT PS 
2325 017542 012777 017652 162760 MOV #2$,aDRINV S INTERRUPT VECTOR TO 3$ 
2326 017550 013777 002542 162754 MOV LEVEL ,@D0RVS : INTERRUPT STATUS I PRIORITY LEVEL OF DEVICE 
2327 017556 005037 177776 CLR PSW LET THE DR11 INTERRUPT 
2328 017562 012777 010000 162734 MOV #MA,acsR ‘MAINT MODE 
2329 017570 052777 2 162726 BIS #F14X64X7,@CSR :SET FNCT1, XBA16, AND XBA17 
2330 017576 052777 000501 162720 BIS #IE+CY+GO,aCSR :SET IE, CYCLE, AND GO 
2331 017 012737 001000 002662 MOV #1000, TIME :SET DELAY COUN 
2332 017612 005337 002662 1$: DEC TIME :DECREMENT UNTIL ZERO 
2333 017616 001375 BNE 1$ ‘BRANCH BACK IF NOT 
2334 017620 013777 2534 162702 MOV SDRINV,@DRINV ;RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
EH $1 7666 13777 002536 162676 MOV SDORVS ,@DRVS *RESTORE LOCATION USED AS THE INTERRUPT PS 
3% 0176 17737 162664 002562 MOV aCSR,RCSR ‘MOVE RECEIVED DATA TO RCSR 
2337 017642 104035 ERROR +3' [DR11 FAILED TO INTERRUPT 
2338 017644 005077 162654 CLR acsk *CLEAR THE CSR TO DO AN .NIT 
2339 017650 31 BR TST26 ‘BRANCH TO THE NEXT TEST 
2340 017652 2706 2$: ADD #4,SP *RESTORE THE STACK 
2341 017656 01377 002534 162644 MOV SORINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2342 017664 013777 002536 162640 MOV SDRVS ,@DRVS ;RESTORE LOCATION USED AS THE INTERRUPT PS 
2343 017672 017737 162626 002562 MOV aCSR,RCSR MOVE CSR DATA TO RCSR 
2344 017700 013701 2562 MOV RCSR,R1 smOvE DATA TO R1 FOR CHECKING 
2345 017704 042701 037577 BIC #37577,R1 “CLEAR ALL BUT ERROR, NEX AND READY BITS 
2346 017710 022701 140200 CMP HERSNKARY, Rl  :SEE IF ALL THESE BITS ARE SET 
2347 017714 001407 BEQ TST26 ‘BRANCH TO THE NEXT TEST IF THEY ARE ALL SET 
2348 017716 013737 002562 002574 MOV RCSR,ECSR MOVE EXPECTED DATA TO ECSR 
2349 017724 052737 140200 002574 BIS #ER+NX*RYECSR 7SET THE BIT THAT SHOULD HAVE BEEN SET 
235C 017732 104040 ERROR +40 =CSR IS WRONG 
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CAUSE BAOF OR FORCE E SEQ 0104 
.SBTTL TEST #26 = CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR 
FRAAAAAAAAARARATAAEAAEAAAAAAAAAAAAAAAAATAAAAAAAAAERARAAAAAERAAAAAAEE 
TEST 26 CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR 

+n THIS TEST INSURES THAT CROSSING THE 32K BOUNDARY DOES NOT CAUSE A BAOF 
:* OR FORCE ERR 
*@ 
Esacetenioueepanceniasistiantusiinttsbunre 
$726: 
SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
MOV #999%,$LPERR | :SET LOOP ON ERROR T0 999 
699$: JSR PC CLENUP SUBROUTINE TO COEAR DEVICE REGISTERS & SET CPU PRI TO 7 
MOV 4-20, awcrR :SET UP WCR 
MOV #-2,aBAR SET UP BAR FOR PROC STATUS ADDRESS 
MOV @DRINV,SDRINV SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
MOV @DRVS, SORVS :SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
MOV #2%,aDRINV S INTERRUPT VECTOR TO 3$ 
MOV LEVEL ,a@DRVS : INTERRUPT STATUS i PRIORITY LEVEL OF DEVICE 
MOV #1000, TIME [SET WAIT LOOP COUNTER 
CLR PSW 3LET THE DR11 INTERRUPT 
MOV #MAACSR INT MODE 
BIS #568, aCSR “CYCLE, Ie. FNCTI, NBAI7, srBAls. AND GO TO CSR 
1$: DEC TIME SDECREMENT UNTIL WE GET TO ZERO 
BNE 1$ ‘BRANCH BACK IF NOT ZERO 
MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS ,@DRVS {RESTORE LOCATION USED AS THE INTERRUPT PS 
MOV @CSRLRCSR {MOVE CSR CONTENTS TO RCSR 
ERROR +35 [DR11 FAILED 10 INTERRUPT 
BR $127 ‘BRANCH TO NEXT TEST 
23: ADD #4 SP ‘CLEAN UP STACK AFTER INTERRUPT 
MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS ,@DRVS ; RESTORE LOCATION USED AS THE INTERRUPT PS 
MOV aCSR,RCSR MOVE CSR CONTENTS TO RCSR 
MOV RCSR._RI COVE CONTENTS TO R1 FOR TESTING 
BIC #37577,R1 : CLEAR ALL BUT THE ERROR AND READY BITS 
CMP #ERERYANX,RI SEE IF ERROR, READY AND NEX ARE SET 
BEQ $127 “BRANCH TO NEXT TEST IF THEY ARE 
MOV RCSR,ECSR ;MOVE EXPECTED DATA TO ECSR 
BIS WER*RY*NX.ECSR :SET THE BITS THAT SHOULD HAVE BEEN SET 
ERROR +40 [CSR IS WRONG 
CLR acsr “CLEAR THE CSR TO DO AN INIT 
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TEST #27 = CHECK ACTUAL POSITION OF 2=N BURST S SEQ 0105 
2394 .SBTTL TEST #27 = CHECK ACTUAL POSITION OF 2-N BURST SWITCH 
SRRRAAAAARAAAAAAAEEATEA ATER EAAAAAAAAAAAERAEAAAAAAAAAAAAAAARAARAAANES 
;sTEST 27 CHECK ACTUAL POSITION OF 2-N BURST SWITCH 
. THIS TEST INSURES THAT THE 2-N BURST SWITCH IS IN THE POSITION THAT 
te THE DEVICE DESCRIPTOR WORD SAYS IT SHOULD BE. 
** 
‘ eeeeeeeeeeeeeeeeeeneeeeeeeeteretereeeneeeeeeeeeeeenereneeetrereere 
020164 TST27: 
020164 000004 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
020166 012737 020204 001310 MOV #999$,$LPERR  ;SET LOOP ON ERROR TO 9998 
2395 020174 032737 000001 002612 BIT #8110, BORW TESTING A ‘RB’ OR A ‘W'”? 
2396 020202 001456 BEQ INOOUT ;BRANCH TO INOOUT Te DRi1-8 
2397 020204 004737 004036 9998: JSR PC, CLENUP SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
2398 020210 012777 100000 162306 MoV #ETR,ACSR TO EIR MODE 
2399 020216 017737 162302 002564 MoV @CSR,REIR SMOVE EIR DATA TO REIR 
2400 020224 005077 162274 CLR acsR 760 BACK TO CSR 
2401 020230 013701 002564 MOV REIR,RI :MOVE DATA TO R1A 
2402 020234 000301 SWAB RT :GET BIT 8 INTO Bit 0. BY SWAPPING BYTES 
2403 020236 006301 ASL RI {MOVE BIT O INTO BIT 
2404 020240 042701 177775 BIC #CBIT1,R1 :CLEAR ALL BUT BIT 1 
2405 020244 013702 002720 MoV DDW,R2 :PUT DEVICE DESCRIPTOR WORD IN R2 
2406 020250 042702 177775 BIC #CBIT1.R2 CLEAR ALL BUT BIT | 
2407 020254 001402 BEQ 1$ BRANCH IF IT IS CLEAR 
2408 020256 005002 CLR R2 [CLEAR THE BIT 
2409 020260 000402 BR 2$ :G0 TEST THE BIT 
2410 020262 012702 000002 1$: MOV #B1T1,R2 SET THE BIT 
411 20266 020102 2$: CMP R1,R2 SEE IF RECEIVED MATCHES EXPECTED 
412 020270 00101 BNE 5$ “BRANCH TO CHECK FOR LOOP ON TEST 
2413 020272 013737 002564 002576 MoV REIR,EEIR :MOVE EXPECTED DATA TO EEIR 
2414 020300 032737 000400 002576 BIT #8178, EEIR TEST STATE OF BIT 8 
2415 020306 001404 BEQ 3$ :BRANCH IF IT IS CLEAR 
2416 020310 042737 000400 002576 BIC #8118, EEIR REVERSE STATE - EXPECTED CLEAR 
2417 020316 000403 BR 4$ 760 CALL ERROR 
2418 020320 052737 000400 002576 3: BIS #8118, EEIR REVERSE STATE - EXPECTED SET 
2419 020326 104054 4s: ERROR +54 2-N CYCLE BURST SWITCH IN WRONG POSITION 
2420 020330 032777 040400 161002 5S: BIT #B1T14+B1T8,aSWRESEE IF WE SHOULD LOOP ON THIS TEST 


2421 020336 001322 BNE 999% ;BRANCH BACK IF SO 
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CODE TO CHECK CABLE STATUS FOR EXECUTION OF CABLE TESTS , SEQ 0106 
2422 .SBTTL CODE TO CHECK CABLE STATUS FOR EXECUTION OF CABLE TESTS 
Sei ; CABLE MODE TESTING (WRAP-AROUND CABLE IN USER SLOTS) 
2425 H 


2426 ; 
7 


242 
2428 020340 032737 000004 002720 INOOUT: 


2429 020346 
2430 020350 000137 023074 


TESTS 30 THRU 37 ARE PERFORMED IF BIT 2 OF DEVICE DESCRIPTOR WORD IS 
SET, INDICATING CABLE IS IN. 


BIT #B1T2,00W ;SEE IF CABLE IS_IN 
BNE TST30 :BRANCH TO NEXT TEST IF CABLE IS IN 
JMP ENDEV ; JUMP TO ENDEV = TESTS ARE NOT TO BE DONE 


CZDRLBO-DR11 GEN NPR INTFC 
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TEST #30 = CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR 


SEQ 0107 


2438 .SBTTL TEST #30 = CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR 
FRRRERAAAARAAARAEAATEATERAE AAA AEAAAAAAAAAAAAAAARAAAEHEAAAREEAAAAEEE 
Z*TEST 30 CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR 
it 
it THIS TEST SETS ALL POSSIBLE COMBINATIONS OF SET BITS IN THE CSR WITH 
: THE MAINTENANCE BIT CLEAR, AND COMPARES THE RECEIVED CSR CONTENTS WITH 
i# THAT OF THE EXPECTED PATTERNS IN "MAICLR' 
-® 
POLE EE LEO ONT EN Ea 
020354 7sT30 
020354 00000 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
020356 012737 020412 001310 MOV #999$,$LPERR § ;SET LOOP ON ERROR TO 999$ 
439 020364 004737 004036 JSR PC, CLENUP ; SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPUPRI 10 7 
2440 020370 005037 002716 CLR = ERRCNT CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +202 
2441 020374 012700 000002 MOV =: #2, RO D0 2 SETS OF 200 PATTERNS 
020400 012701 006266 MOV = #MAICLR,R1 {MOVE ADDRESS OF EXPECTED PATTERNS TO RI 
2443 020404 005002 CLR oR START WITH PATTERN ZERO 
020406 012703 000200 1$: MOV #200, R3 MOVE 200 TO THE LOOP COUNTER 
2445 020412 052777 010000 162104 999$: BIS § #MA,acSR SET MAINTENANCE AND 
2446 020420 005077 162100 CLR = ac SR :CLEAR TO DO AN INIT 
2447 020424 017737 162074 002562 MOV — CSR, RCSR ;MOVE RECEIVED DATA TO RCSR 
2448 020432 022737 000200 002562 CMP = #RY, RCSR MAKE SURE READY BIT IS THE ONLY BIT SET 
2449 020440 001404 BEQ 2S BRANCH IF SO 
2450 020442 012737 000200 002574 MOV —s #RY,,ECSR :MOVE EXPECTED DATA TO ECSR 
2451 020450 104032 ERROR +3 READY IS NOT THE ONLY BIT SET 
2452 020452 012777 177777 162040 28: MOV  #=1,aWCR MOVE 1 WORD COUNT TO WCR IN CASE OF IE ENABLED 
2453 020460 012777 052414 162034 MOV HNOCARE @BAR §_;MOVE A NOT-CARE ADDRESS TO BAR FOR SAME REASON 
454 020466 010277 162032 MOV oR SET THE PARTICULAR FUNCTION BITS IN CSR 
455 020472 017737 162026 002562 MOV ACER GRESR MOVE RECEIVED DATA TO RCSR 
2456 020500 011137 002574 MOV (R1) ,ECSR MOVE EXPECTED DATA TO ECSR 
2457 020504 023737 002574 002562 CMP ss ECCS RCSR COMPARE EXPECTED WITH RECEIVED 
2458 020512 001427 BEQSs«O6S BRANCH IF OK 
2459 020514 012737 000401 020524 MOV - #CY#G0, 38 ;REESTABLISH BIT PATTERN 
2460 020522 040227 BIC —-R2, (PC) SEE IF BOTH CYCLE AND GO WERE SET 
2461 020524 000401 38: WORD CY#GO LOCATION TO HOLD BOTH CYCLE AND GO BITS 
2462 020526 001016 BNE $ BRANCH TO ERROR ONLY IF EITHER OR BOTH BITS WERE CLEAR 
2463 020530 005737 002714 TST —- MEMGMT :SEE IF MEMORY MANAGEMENT IS OUT THERE 
2464 020534 001404 BEQ 4S BRANCH IF NOT 
2465 020536 032737 000060 002574 BIT —-#X6X7,ECSR SEE TF EITHER XBA16 OR XBA17 ARE SET 
2466 020544 001407 BEQ $ BRANCH TO ERROR IF BOTH ARE CLEAR 
2467 020546 052737 140000 002574 4$: BIS § WER*NX,ECSR © SET THE ERROR AND NEX BITS - EXPECT THEM TO SET 
2468 020554 023737 002574 002562 CMP =—sEC SR, RCSR NOW SEE IF DATA MATCHES 
2469 020562 001403 BEQti«éOS BRANCH AROUND ERROR IF IT DOES 
2470 020564 010237 002540 S$: MOV R2,BUT :MOVE THE BITS SET INTO CSR TO THE BUT LOCATION 
2471 020570 104202 ERROR +202 CSR PATTERN NOT CORRECT 
2472 020572 062701 000002 6$: ADD —s #2, R1 INCREMENT R1 TO NEXT EXPECTED PATTERN 
2473 020576 005202 INC —_ RR INCREMENT THE PATTER 
02 005303 DEC =— aR DECREMENT THE LOOP COUNTER 
2475 020602 001303 BNE 999% ;BRANCH BACK IF NOT DONE 
2476 020604 062702 000200 ADD #200, R2 ADD 200 TO PATTERN LOCATION 
2477 020610 005300 DEC = RO :DECREMENT THE LOOP COUNTER A 
2478 020612 001275 BNE 1$ ;BRANCH BACK IF2ND OCTAL GROUP NOT DONE 
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TEST #31 = CHECK BAR WITH CSR CLEAR SEQ 0108 
2484 -SBTTL TEST #31 = CHECK BAR WITH CSR CLEAR 
FRRRARARAARAREAAAAEEA ERATE ATER AAAAAEAAAAAAAAAAAEAAAAAAAAAARAAAAREE 
;*TEST 31 CHECK BAR WITH CSR CLEAR 
;* 
;* THIS TEST CHECKS THAT BAR BIT 0 IS CLEAR WITH CSR CLEAR (CSR=0). 
** 
[eeeeeeneeeeeeneeeeeeeeereeteeteeeenereeetereneenneeeneeerenereneee 
020614 TST31: 
020614 000004 SCOPE PROCESS LOOPING AND TEST NUMBER INCREMENT 
020616 012737 020624 001310 MOV #999$ , SLPERR 7SET LOOP ON ERROR TO 999$ 
2485 020624 004737 004036 999$: JSR PC,CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
486 0206 012777 001360 161664 MOV #STMPO,QBAR ;PUT AN ADDRESS IN THE BAR 
2487 020636 012777 000001 161660 MOV #G0,aCSR ;SET JUST THE GO BIT TO CLEAR THE READY BIT 
020644 017737 161654 002562 MOV @CSR,RCSR ;MOVE RECEIVED DATA TO RCSR 
2489 020652 001403 BEQ 1$ ;BRANCH AROUND ERROR IF EQUAL TO ZERO 
2490 020654 005037 002574 CLR ECSR ;MOVE EXPECTED DATA TO ECSR 
2491 020660 104040 ERROR +40 ;CSR_IS WRONG 
2492 020662 017737 161634 002570 1$: MOV @BAR ,RBAR ;MOVE RECEIVED DATA TO RBAR 
2493 020670 032737 000001 002570 BIT #81T0,RBAR ;SEE IF THIS BIT IS CLEAR 
2494 020676 001407 BEQ TST32 ;BRANCH TO NEXT TEST IF IT WAS 
2495 020700 013737 002570 002602 MOV RBAR ,EBAR ;MOVE EXPECTED DATA TO EBAR 
2496 020706 042737 000001 002602 BIC #8110, EBAR ;CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 
2497 020714 104044 ERROR +44 ;BAR IS WRONG 
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TEST #32 = TEST 7 SINGLE DATI NON BURST MODE TRANSFERS SEQ 0109 
2504 .SBTTL TEST #32 - TEST 7 SINGLE DATI NON BURST MODE TRANSFERS 
FRARAAAAARAAEREAREAAAAAARA AAA AERA AAEAAAAARAAAAAAAAERARAARA HATER EE 
SeTEST 32 TEST 7 SINGLE DATI NON BURST MODE TRANSFERS 
*@ 
;* THIS TEST DOES 7 BIT PATTERNS OF SINGLE DATI NON BURST MODE TRANSFERS, 
3* AND THAT [THEY ARE DONE PROPERLY. 
*® 
[eeeeeeeeteneeeeeeetereneereeerteneeeeneeeererereeenereneeeeerteret 
020716 S132: 
020716 000004 SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
020720 012737 020742 001310 MOV #999$,SLPERR | :SET LOOP ON ERROR TO 999$ 
2505 020726 012702 000007 1%: MOV #7,R2 :SET UP LOOP COUNTER - DO 7 BIT PATTERNS 
2506 020732 005037 002716 CLR ERRCNT sCLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
2507 020736 012703 006250 MOV #PATRNS,R3 [MOYE ADDRESS OF PATTERNS TO R3 
2508 020742 017737 161562 002534 999%: MOV @DRINV, SORINV ;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
2509 020750 017737 161556 002536 MOV @DRVS, SDORVS >SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
2510 020756 012777 021120 161544 MOV #3$,aDRINV : INTERRUPT VECTOR TO 4$ 
2511 020764 013777 002542 161540 MOV LEVEL,@DRVS : INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE 
2512 020772 005037 177776 CLR PSW :LET THE DR11 INT Soren tee 
2513 020776 012777 010000 161520 MOV #MA,acsR [DO AN INIT BY SETTING A 
2514 021 005077 161514 CLR acsr ‘CLEARING THE CSR MAINTENANCE BIT 
2515 021010 012777 177777 161502 MOV #-1,awCR ‘SET UP FOR 1 TRANSFER 
2516 021016 012777 002614 161476 MOV #NPR1,@BAR : TRANSFER FROM BUS a get IN NPR1 
2517 021024 005077 161476 CLR aBDR GET READY TO = thd DAT 
2518 021030 011337 002614 MOV (R3) ,NPR1 ;SET UP TRANSFER DAT 
2519 021034 012777 000110 161462 MOV #F3+IE,aCSR >SET THE NON BURST CENCT3) AND IE 
2520 021042 052777 000401 161454 BIS #CY¥+GO,aCSR :SET THE CYCLE AND GO BITS 
2521 021050 005037 002662 CLR TIME ‘CLEAR THE TIME LOCATION FOR WAIT LOOP 
2522 021054 005237 002662 2$: INC TIME : INCREMENT UNTIL WE GET TO ZERO AGAIN 
2523 021060 001375 BNE 2$ ‘BRANCH BACK IF WE AREN'T THERE YET 
2524 021062 013777 002534 161440 MOV SDRINV,@DRINV sRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2525 021070 013777 002536 161434 MOV SDRVS ,aDRVS sRESTORE LOCATION USED AS THE INTERRUPT PS 
2526 021076 017737 161422 002562 MOV @CSR,RCSR “MOVE RECEIVED DATA, To RCSR 
2527 021104 011337 002606 MOV (R3) ,ENPR1 [MOVE PATTERN TO ENP 
2528 021110 104035 ERROR +35 DR11 FAILED TO INTERRUPT 
2529 021112 005077 161406 CLR acsrR :CLEAR THE CSR TO DO AN INIT 
2530 021116 000450 BR 5$ ‘BRANCH TO SEE IF THERE + # ANY MORE PATTERNS TO CHECK 
2531 021120 000004 3$: ADD #4,SP sCLEAN STACK AFTER INTERRUPT 
2532 021124 013777 002534 161376 MOV SORINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2533 021132 013777 002536 161372 MOV SDORVS ,aDRVS sRESTORE LOCATION USED AS THE INTERRUPT PS 
2534 021140 004737 004254 JSR PC, ERRCHK ‘CLEAR IE, CHECK FOR ERROR 
2535 021144 104021 ERROR +21 ‘ERROR BIT SHOULD HAVE BEEN CLEAR 
2536 021146 017737 161350 002570 MOV @BAR,RBAR MOVE RECEIVED DATA TO RBAR 
2537 021154 012737 002617 002602 MOV #NPRI+3,EBAR MOVE EXPECTED DATA TO EBAR 
2538 021162 017737 161340 002566 MOV @BOR,RBOR “MOVE RECEIVED DATA TO RBDR 
2539 021170 011337 002600 MOV (R3) ,EBDR [MOVE EXPECTED DATA TO EBDR 
2540 021174 017737 161320 002572 MOV awCR RWCR sMOVE RECEIVED DATA TO RWCR 
2541 021202 005037 002604 CLR EWCR ‘MOVE EXPECTED DATA TO EWCR 
2542 021206 023737 002570 002602 CMP RBAR ,EBAR “COMPARE RECEIVED WITH EXPECTED 
2543 021214 001010 BNE ‘BRANCH IF WRONG 
2544 021216 023737 002566 002600 CMP RBDR,EBOR : COMPARE RECEIVED WITH EXPECTED 
2545 021224 001004 BNE [BRANCH IF WRONG 
2546 021226 023737 002572 002604 CMP RWCR,EWCR —— RECEIVED WITH EXPECTED 
2547 021234 001401 BEQ 5$ ‘BRANCH IF OK 
2548 021236 104211 4$: ERROR +211 3CSR Se On WCR AND-OR BAR ARE INCORRECT 
2549 021240 062703 000002 5$: ADD #2,R3 ‘INCREMENT TO NEXT PATTERN 
2550 021244 005302 DEC Re ;DECREMENT THE LOOP COUNTER 
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TEST #32 = TEST 7 SINGLE DATI NON BURST MODE TRANSFERS 
2551 021246 001235 BNE 999% 


;BRANCH BACK IF NOT ZERO YET 


SEQ 0110 
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TEST #33 = TEST STRING OF 200 DATIS BURST MODE XFERS 


eet bl GEN NPR INTFC 
SEQ 0111 


2557 .SBTTL TEST #33 - TEST STRING OF 200 DATIS BURST MODE XFERS 
FRRAEAAAAAAAAAAAAATEHEAAAA AAA AEAAAHEEAAAAHAAAEHAAARAAAAAAAAAAAAAAATE 
{TEST 33 TEST STRING OF 200 DATIS BURST MODE XFERS 
ce THIS TEST DOES 200 DATI TRANSFERS IN BURST MODE. 
*@ 
Seeeteeeeeeeeeeeeeereeeerereeteeneeteneeeneenteeeeneenereeeereete 
021250 1S133: 
021250 000004 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
021252 012737 021260 001310 V  #999$,$LPERR § :SET LOOP ON ERROR TO 999$ 
2558 021260 004737 004036 9998: JSR PC, CLENUP SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
2559 021264 012737 000200 002624 mov #200, BUFLEN LENGTH OF BUFFER= 
2560 021272 004737 003472 JSR —s- PC, LODBUF :LOAD THE BUFFER WITH INCREMENTING PATTERN 
2561 021276 012737 177600 002632 MOV = #= 200, WCLEN PREPARE NUMBER FOR WCR 
2562 021304 013777 002632 161206 MOV =~ WCLEN aWCR SET UP WCR 
2563 021312 013777 002620 161202 mov INBUF ,aBAR SET UP BAR 
$64 021320 012777 177777 161200 MOV = #1, @BDR MAINT AIDE 
2565 021326 017737 161176 002534 MoV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
021334 017737 161172 002536 MOV — @DRVS, SORVS SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
2567 021342 012777 021452 161160 MOV #28, @DRINV INT VECTOR 
2568 021350 013777 002542 161154 MOV —LEVEL , @DRVS INTERRUPT STATUS TO LEVEL OF DEVICE 
2569 021356 005037 177776 CLR «PS LET THE DR11_ INTERR 
2570 021362 012777 000100 161134 MOV = #WIE, aCSR SET INTERRUPT ENABLE. 
2571 021370 052777 000401 161126 BIS _ #CY*G0,aCSR CYCLE, GO 
2572 021376 012737 001000 002662 MOV #1000, TIME WAIT FOR INTERRUPT 
2573 021404 005337 002662 1$: DEC TIME :DECREMENT UNTIL yi REACH ZERO 
2574 021410 001375 BNE 1$ BRANCH BACK IF NOT ZERO 
2575 021412 013777 002534 161110 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2576 021420 013777 002536 161104 MOV SDRVS ,aDRVS RESTORE LOCATION USED AS THE INTERRUPT PS 
2577 021426 017737 161072 002562 MOV — CSR, RCSR :MOVE RECEIVED DATA TO RCSR 
2578 021434 104035 ERROR +35 :DR11 FAILED TO INTERRUPT 
2579 021436 012777 010000 161060 MOV WHA ,aCSR SET THE MAINTENANCE BIT AND 
2580 021444 005077 161054 CLR acsr :CLEAR THE CSR TO DO AN INIT 
2581 021450 000426 BR TST 34 ;BRANCH TO NEXT TEST 
2582 021452 062706 000004 28: ADD =—s_« #4, SP CLEAN UP STACK AFTER INTERRUPT 
2583 021456 013777 002534 161044 MoV SDRINV,@DRINV ZRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2584 021 013777 002536 161040 MOV SDRVS ,@DRVS RESTORE LOCATION USED AS THE INTERRUPT PS 
2585 021472 004737 003546 JSR PC, INTA GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
2586 021 104051 ERROR +51 CSR AND-OR WCR AND-OR BAR ARE INCORECT 
2587 021500 017737 161022 002566 MOV — @BDR,, RBDR :MOVE RECEIVED DATA TO RBDR 
25°83 021506 022737 000177 002566 CMP —s«#177, RBDR :CHECK THAT WORD #200 OF INBUF IS IN BDR 
2589 021514 001404 BEG TST34 BRANCH TO NEXT TEST IF IT IS 
259C 021516 012737 000177 002600 MOV «#177, EBDR “MOVE EXPECTED DATA TO EBDR 
2591 021524 104045 ERROR +45 BAD DATA IN BDR 
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TEST #36 = TEST 7 SINGLE DATO NON BURST MODE TRANSFERS SEQ 0112 
2598 .SBTTL TEST #34 = TEST 7 SINGLE DATO NON BURST MODE TRANSFERS 
FRRARARAAAAAAAAAAAAAAAATETEAAAAAHAAAERAAAAAAAHAAKAKRARAARAAAAEAAAATAS 
;*TEST 34 TEST 7 SINGLE DATO NON BURST MODE TRANSFERS 
ie THIS TEST DOES 7 PATTERNS OF SINGLE DATO NON BURST MODE TRANSFERS, AND 
ie THAT THEY ARE DONE PROPERLY 
-* 
ideale dan talsccishenessiesineiideendeasidaseetediapeennbeianaeaal 
021526 TST34: 
021526 000004 SCOPE {PROCESS LOOPING AND TEST NUMBER INCREMENT 
021530 012737 021552 001310 MOV © #999$,SLPERR SET LOOP ON ERROR TO 9998 
2599 021536 012702 000007 18: MOV —s-«#7, R2 :D0 7 BIT PATTERNS 
2600 021542 005037 002716 CLR ERRCNT ZCLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
2601 021546 012703 006250 MOV ss #PATRNS,,R3 :MOVE ADDRESS OF PATTERNS TO R3 
2602 021552 017737 160752 002534 999$: MOV  § @DRINV,SDRINV ;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
2603 021560 017737 160746 002536 MOV = @DRVS,, SDRVS SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
2604 021566 012777 021740 160734 MOV —s-#3$ ,@DRINV INTERRUPT VECTOR TO 3$ 
2605 021574 013777 160730 MOV —_ LEVEL ,aDRVS TINTERRUPT STATUS TO LEVEL OF DEVICE 
2606 021602 005037 177776 CLR = PSW LET DR11_ INTERRUPT 
2607 021606 012777 010000 160710 MOV - #MA, ACSR :D0 AN INIT 
2608 021614 005077 160704 CLR ~—s ac’SR FORCE ACCESS TO CSR 
2609 021620 012777 177777 160672 MOV = #=1 ,awCR SET UP FOR 1 TRANSFER 
2610 021626 012777 002614 160666 MOV = #NPR1,@BAR ; TRANSFER TO BUS ADDRESS IN NPR1 
2611 021634 005037 002614 CLR —s NPR GET READY TO RECEIVE DATA 
2612 021640 011377 160662 MOV (R3), :SET UP TO TRANSFER, DATA 
2613 021644 012777 000112 160652 MOV oF ieES*IE.@CSR {DATO CFNCTI). FNCT3,, IE 
2614 021652 052777 000401 160644 BIS  #CY+G0,aCSR CYCLE, GO 
2615 021660 012737 001000 002662 mov #1000, TIME : CLEAR THE TIME LOCATION. FOR WAIT LOOP 
2616 021666 005337 002662 28: DEC TIME :DECREMENT UNTIL WE GET BA“K TO ZERO 
2617 021672 001375 BNE 2$ BRANCH BACK IF NOT ZERO 
2618 021674 013777 002534 160626 MOV SDRINV,@DRINV “RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2619 021702 013777 002536 160622 MOV SDRVS ,@DRVS RESTORE LOCATION USED AS THE INTERRUPT PS 
2620 021710 017737 160610 002562 MOV = @CSR,RCSR ;MOVE RECEIVED DATA TO RCSR 
2621 021716 011337 001360 MOV (R3) ,STMPO :MOVE PATTERN TO $1APO 
2622 021722 104035 ERROR +35 :DR11 FAILED TO INTERRUPT 
2623 021724 012777 010000 160572 MOV  #MA,aCSR :SET THE MAINTENANCE BIT AND 
2624 021732 005077 160566 CLR —s ac’SR :CLEAR THE CSR TO DO AN INIT 
2625 021736 000445 BR 6$ ;BRANCH TO DO NEXT PATTERN 
2626 021740 062706 000004 3$: ADD =—s_« #4, SP :CLEAN UP STACK FROM INTERRUPT 
2627 021744 013777 002534 160556 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2628 021752 013777 002536 160552 MOV —s- SDRVS , aDRVS :RESTORE LOCATION USED AS THE INTERRUPT PS 
021760 004737 004254 JSR PC ,ERRCHK :CLEAR IE, CHECK FOR ERR 
021764 104021 ERROR +2 ERROR BIT SHOULD WAVE BEEN CLEAR 
2631 021766 017737 160526 002572 MOV = @WCR, RWCR :MOVE RECEIVED DATA T 
2632 021774 001403 BEQ AS BRANCH IF IT IS EQUAL TO. ZERO 
2633 021776 011337 001362 MOV (R3) ,STMP1 MOVE PATTERN TO $TMPO 
2634 022 104206 ERROR +206 :WCR NOT EQUAL TO ZERO 
2635 022004 017737 160512 002570 4S: MOV — @BAR, RBAR ;MOVE RECEIVED ADDRESS TO RBAR 
2636 022012 022737 002617 002570 CMP =—s#NPRI+3,RBAR ©: COMPARE CORRECT BAR WITH BAR CABLE MODE TESTING LEAVES 
2637 BIT 0 OF BAR SET. THEREFORE MUST CHECK FOR ODD ADDRESS 
2638 022020 001406 BEQ 5$ ;BRANCH IF IT IS OK 
2639 022022 01737 002617 002602 MOV - #NPRI+3,EBAR § ;MOVE EXPECTED DATA TO EBAR 
640 022039 011337 001362 MOV (R3) ,STMP1 :MOVE PATTERN TO STMPO 
022034 104207 ERROR +207 :BAR 1S WRONG 
2642 022036 021337 002614 5$: CMP (R3) ,NPR1 :CHECK FOR CORRECT D 
2643 022042 001403 BEQStiséS :BRANCH IF CORRECT DATA WAS. TRANSFERRED 
2644 022064 011337 002606 MOV (R3) ,ENPR1 ;MOVE EXPECTED DATA TO ENPR1 
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2645 055028 104210 ERROR +210 ;DATA_NOT TRANSFERED ——— 
2646 022052 062703 000002 6$: ADD #2,R3 :POINT TO NEXT BIT PATTERN 
2647 022056 005302 DEC R2 COUNT 1 PATTERN DONE 


2648 022060 001234 BNE 999% ;BRANCH BACK IF NOT DONE 





Ss a GEN NPR INTFC 
T #35 = TEST STRING OR 200 DATOS BURST MODE XFERS 


2654 
022062 
022062 
022064 
2655 022072 
2656 022076 
657 022104 
eee 022110 
2659 022116 
2660 022122 
2661 022130 
2662 022136 
2663 022144 
2664 022152 
2665 022160 
2666 022166 
2667 022174 
2668 022200 
2669 022206 
2670 022214 
gf 022222 
3678 095980 
2674 022236 
2675 022244 
2676 022252 
2677 022254 
2678 022262 
79 022266 
022270 
2681 022274 
2682 022302 
26835 022310 
2684 022314 
2685 022316 
2686 022322 
2687 022324 
2688 022330 





000004 


022072 


160254 
010000 
160236 
000004 
002534 
002536 
003546 
004106 
004170 
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001310 
002624 
002632 
160370 


160336 


160316 
160310 
002662 


160272 
160266 
002562 


160242 


160226 
160222 


-SBTTL TEST #35 = TEST STRING OR 200 DATOS BURST MODE XFERS 


FRRAAAARERAAERERAAEEAAAEAT AEE EAE AEA AEAAERAEAAERAEAAAAAEAAAERAAERAARE 


#TEST 35 TEST STRING OR 200 DATOS BURST MODE XFERS 
ce THIS TEST CHECKS 200 DATO TRANSFERS IN BURST MODE. 
*® 
Seeeeeeeeeeeeeeeeeeeeereredeeededtneteneeeenerenereeeeeeteeeeeenees 
TST35: 
SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
OV #999$,SLPERR | :SET LOOP ON ERROR TO 999$ 
999$: CLR acsR SFORCE ACCESS TO CSR 
MOV #200, sBUFLEN ‘LENGTH OF BUFFER=200 
JSR PC ,LODBUF sLOAD THE BUFFER WITH INCREMENT ING PATTERN 
MOV BUFLEN. WCLEN  :PREPARE NUMBER FOR WCR 
NEG WCLEN :2'S COMPLEMENT OF BUFLEN 
MOV WCLEN,@wcR :SET UP WCR 
MOV INBUF , @BAR :SET UP BAR 
MOV #52525 ,aBDR :SET UP BDR 
MOV @DRINV.SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
MOV @DRVS, SDRVS :SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
MOV #2$,aDRINV S INTERRUPT VECTOR 
MOV LEVEL ,@DRVS S INTERRUPT STATUS TO LEVEL OF DEVICE 
CLR PSW ‘LET THE DR11 INTERRUPT 
MOV #IE+F1,aCSR s1E, FNCTI 
BIS #CY+GO,acSR :CYCLE, GO 
MOV #1000, TIME [MOVE WAIT LOOP VALUE TO TIME LOCATION 
1$: DEC TIME SDECREMENT UNTIL tft REACH ZERO 
BNE 1$ ‘BRANCH BACK IF NOT ZERO 
MOV SDRINV,@DRINV :RESTORE LOCATION” USED AS THE INTERRUPT VECTOR 
MOV SDRVS ,aDRVS ‘RESTORE LOCATION USED AS THE INTERRUPT PS 
MOV @CSR,RCSR *MOVE RECEIVED DATA TO RCSR 
ERROR +35 :DR11 FAILED TO INTERRUPT 
MOV #MA,aCSR *SET THE MAINTENANCE BIT AND 
CLR CSR ‘CLEAR THE CSR TO DO AN INIT 
BR TST36 ‘BRANCH TO NEXT TEST 
2$: ADD #4,SP ?CLEAN STACK AFTER INTERR 
MOV SDRINV,@DRINV :RESTORE LOCATION USED AS UONE INTERRUPT VECTOR 
MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
JSR PC, INTA °GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
ERROR +51 CSR AND-OR WCR AND-OR BAR ARE INCORECT 
SR PC ,DATOCK :CHECK INBUF 
ERROR +4 ‘BUFFER DATA NOT CORRECT 
JSR PC ,DATOC2 :GO BACK TO SUBROUTINE AFTER ERROR RTS IN DATOCK 
ERROR +47 ‘TOO MANY WORDS WERE TRANSFERED 


SEQ 0114 


Sta Pll GEN NPR INTFC 
T #36 = TEST STRING OF 200 DATIS NON-BURST MODE 


-SBTTL TEST #36 - TEST STRING OF 200 DATIS NON-BURST MODE 
PUTT TI IIIT T TIP t tii iti titi ti titties rrr 


TEST STRING OF 200 DATIS NON-BURST MODE 
THIS TEST DOES 200 DATI TRANSFERS IN NON BURST MODE. 


2694 


BEL 
Sxeex 


~m 
oa 
~o 
uw 
oooooooco 
we 
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r~ 
_ 
~ 


onNn~s w 
RVSSRFS 


MRPPIPIPINPIPYPI PIPPIN 
MN — 
oon 


SOOO OCOOOOOoOoOoOoOoOoOoOooOo 
rorororornerfry» 
MrPOPOPOPOPUTErT 

BORE 

NSPSSERES 


2 
2729 022610 
2616 


ss 
—O-— 
WW 

~“ 


— at ed 
Wwrn 
onnNN 
NU 
~~ 


2706 


04 
012737 
104045 


022342 
004036 

160152 
000200 


160000 


010000 
157762 


157730 
000177 


000177 
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001310 


002624 
002632 
160114 


160062 
160042 


160034 
002662 


160016 
160012 
002562 


157766 


157752 
157746 


002566 
002566 


002600 


*TEST 36 


7* 
oe 
-* 


{ST36: 


9998: 


2$: 


+¢o¢ ge 


1200, BUFLEN 
PC, LODBUF 
BUFLEN, »WCLEN 


WCLEN,a@WCR 
INBUF ,@BAR 
#-1, aBDR 
@DRINV, SDRINV 
@ORVS ,SDRVS 


#2$,,aDRINV 
LEVEL, e@DRVS 


#F3+1E,aCSR 
#CY¥+G0,aCsR 
#1000, TIME 
TIME 


1$ 

SORINV ,@DRINV 
SDRVS ,aDRVS 
Och. oRCSR 


ors acsr 
acre, 
TS137 


#4,SP 
SORINV,@DRINV 
SDRVS ,@DRVS 


PC,INTA 
+51 

@BDR ,RBDR 
#177,RBOR 


TST3 
#177,EBDR 
+45 


RARER AAAEREEAAAAAAAE AEE AAAAAAAAAAAAAAAARAEREAREAAEAAAREREAREEE 


;PROCESS Oy inde -“ Se NUMBER INCREMENT 


;SET LOOP ON ERR 


SEQ 0115 


; SUBROUT INE e, CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 


FORCE ACCESS T 


LENGTH OF BUFFER 


[LOAD THE BUFFE 


300 
R eh ea eeceite PATTERN 


; PREPARE NUMBER FOR 


SET-UP WCR 
SET-UP BAR 
:MAINT AIDE 


;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 


: SAVE vo 
; INT VECTOR 


:2'S COMPLEMENT OF BUFLEN 


TO BE USED AS THE INTERRUPT PS 


SINTERRUPT STATUS TO LEVEL OF DEVICE 


LET THE DR11 I 
FNCT3, 

CYCLE, GO 

:SET WAIT LOOP 
;DECREMENT UNTI 


NTERRUPT 


COUNTER 
L WE : peace ZERO 


;BRANCH BACK IF NOT 


sRESTORE LOCATI 
RESTORE LOCATI 
:MOVE RECEIVED 


ON USED AS THE INTERRUPT VECTOR 
ON USED AS THE INTERRUPT PS 
DATA TO RCSR 


:DR11 FAILED TO INTERRUPT 


;SET THE MAINTE 
SCLEAR THE CSR 
:BRANC TO NEXT 

CLEAN UP STACK 
RESTORE LOCATI 
:RESTORE LOCATI 

O CLEAR IE, 


iOS AND-OR WCR 
MOVE RECEIVED 


NANCE BIT AND 
TO 4 AN AIT 


TEST 

AFTER INTERRUPT 
ON USED AS THE INTERRUPT VECTOR 
ON USED AS THE INTERRUPT PS 


CHECK ERROR, READY, WCR=0 AND BAR 


— t. BAR ARE INCORECT 
DATA T 


RBDR 
;CHECK THAT WORD 1200. OF INBUF IS IN BOR 


BRANCH TO NEXT 
sMOVE EXPECTED 


:BAD DATA IN BOR 


TEST IF OK 
DATA TO EBDR 





CZDRLBO-DR11 GEN NPR INTFC 








TEST #37 = TEST STRING OF 200 DATOS NON-BURST 


2736 


022620 
022620 


22 
2737 022630 
738 34 
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SEQ 0116 


001310 


002562 
157500 


157464 
157460 


~SBTTL TEST #37 = TEST STRING OF 200 DATOS NON-BURST MODE 


FRRAAAAAAAAAAAAEEAAEAAAE REET EAE AAAAAAAAEAEARERERERERERAERAREAAARAEE 


TEST 37 TEST STRING OF 200 DATOS NON-BURST MODE 
> THIS TEST DOES 200 DATOS IN NON BURST MODE. 
*® 
RAEAARAAARAAAEAARAAAAEAAEAAAEATAATEAAAAAAARAARAAAAAAAAAAAAAEAARAAAEAAAAAAEEE 
1S137: 
SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
MOV #999$,SLPERR ..;SET LOOP ON ERROR TO 9996. 
999$: JSR PC, CLENUP > SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
CLR acsr SFORCE ACCESS TO CSR 
MOV #200,BUFLEN ‘LENGTH OF BUFFER=200 
JSR PC ,LODBUF :LOAD THE BUFFER WITH INCREMENTING PATTERN 
MOV BUFLEN,WCLEN PREPARE NUMBER FOR WCR 
NEG WCLEN :2°S COMPLEMENT OF BUFLEN 
MOV WCLEN, @WCR *SET UP WCR 
MOV INBUF .aBAR set UP BAR 
MOV #52525 ,aBOR :SET UP BDR 
MOV @DRINV.SDRINV SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
MOV @DRVS, SORVS *SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
MOV #2$,aDRINV : INTERRUPT VECTO 
MOV LEVEL ,a@DRVS : INTERRUPT SFATUS 10 bevel OF DEVICE 
CLR PSW ‘LET THE DR11 INTERR 
MOV #FIFES+1E,@CSR SFNCTI, FNCT3, I 
BIS #CY+G0,aCSR :CYCLE, GO 
MOV #1000, TIME :SET WAIT LOOP COUNTER 
1$: DEC TIME ‘DECREMENT UNTIL WE GET TO ZERO 
BNE 1$ ‘BRANCH BACK IF NOT ZERO 
MOV SDRINV,@DRINV :RESTORE NOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
MOV aCSR,RCSR ;MOVE RECEIVED DATA TO RCSR 
ERROR +35 :DR11 FAILED TO INTERRUPT 
MOV #MA,aCsR :SET THE MAINTENANCE BIT AND 
CLR acsr [CLEAR THE CSR TO DO AN INIT 
BR TST40 :BRANCH TO NEXT TEST 
2s: ADD #4,SP “CLEAN UP STACK AFTER INTERRUPT 
MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS ,aDRVS *RESTORE LOCATION USED AS THE INTERRUPT PS 
JSR PC, INTA “GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
ERROR +51 “CSR AND-OR WCR AND-OR BAR ARE INCORECT 
JSR PC ,DATOCK ‘CHECK INBUF 
ERROR +46 ‘BUFFER DATA NOT CORRECT 
JSR PC ,DATOC2 GO BACK TO SUBROUTINE AFTER ERROR RTS IN DATOCK 
ERROR +47 :TOO MANY WORDS WERE TRANSFERED 
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END OF DEVICE PASS ROUTINE SEQ 0117 


%, 


2772 .SBTTL END OF DEVICE PASS ROUTINE : 
e77 POUT ITITTITI LITLE TEE EEL KEELE LAE ge 
2774 02 74 0000 ENDEV: SCOPE sFOR POSSIBLE LOOP ON TEST 
2775 023076 005037 001302 CLR STSTNM ‘CLEAR TEST NO. COUNT FOR SCOPE ROUTINE 
2776 023102 022737 000001 002416 CMP #1,QTYBRD ‘IS THERE MORE THAN 1 BOARD UNDER TEST? 
2777 023110 001444 BEQ 5$ :BRANCH IF NO 
2778 023112 005737 001312 TST SERTTL SEE IF THERE WERE ANY ERRORS 
2779 023116 001014 BNE 2$ ;BRANCH AROUND EOP TEST IF SO 
2780 023120 105737 002710 TSTB OPLOC “SEE IF EOP MESSAGES ARE TO PRINT 
2781 023124 001413 BEQ $ BRAN CH IF SO 
2782 023126 105737 002711 TSTB —«EOPLOC+1 E IF EOP WAS REQUESTED BEFORE 
2783 023132 001003 BNE 1$ ‘BRANCH TO PRINT MESSAGE IF SO 
2784 023134 105737 027423 TSTB - CHARCT [SEE IF EOD REQUESTED 
2785 023140 001430 BEQ 5$ ‘BRANCH AROUND MESSAGE PRINT IF NOT 
2786 023142 105237 002711 1$: INCB -EOPLOC+#1 ‘INCREMENT UPPER BYTE OF EOPLOC TO CALL EOP MESSAGE 
2787 023146 000402 BR 3$ ‘BRANCH IF NOT = NO ERRORS TO SPACE F 
2788 023150 104401 001405 2$: TYPE  ,$CRLF ‘TYPE A <CRLF> 
2789 023154 104401 034036 3$: TYPE BOARD :TYPE: ‘BOARD # ° 
2790 023160 013746 001424 MOV $UNIT,-(SP) ;:SAVE SUNIT FOR TYPEQUT 
023164 104405 TYPDS 3360 TYPE=-DECIMAL ASCII with SIGN 
2791 023166 104401 034753 TYPE ,TSTCOM :TYPE: ° TESTING COMPLET 
2792 023172 005737 001312 TST SERTIL [SEE IF ANY ERRORS THIS DEVICE 
2793 023176 001407 BEQ 4$ ;BRANCH AROUND TOTAL ERRORS MESSAGE IF NONE 
2794 023200 104401 032764 TYPE ETDEV : TYPE: " © TOTAL ERRORS THIS DEVICE = 
2795 023204 013746 001312 MOV $ERTIL,-(SP) MOVE NUMBER OF ERRORS TO THE STACK 
2796 023210 104405 TYPDS °G0 TYPE THE NUMBER 
2797 023212 004737 003126 JSR PC,ERCAPT 360 Los THE UNIT #, PASS # & # OF ERRORS THIS DEVICE 
3798 023216 104401 00 4$: TYPE $CRLF ‘TYPE A <CRLF> 
799 22 005237 001422 5$: INC DEVCT : INCREMENT DEVICE COUNTER 
2800 023226 023737 002416 001422 CMP QTYBRD,SDEVCT ALL DEVICES TESTED? 
2801 023234 001404 BEQ SEOP 3GO0 TO END OF PASS ROUTINE IF SO 
2802 023236 005237 001424 INC SUNIT : INCREMENT THE UNIT NUMBER 
2803 023242 000137 011020 JMP TSTDEV [GO TEST NEXT DEVICE 
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END OF PASS ROUTINE SEQ 0118 


2804 .SBTTL END OF PASS ROUTINE 
mame wa ame ae or.) 
is INCREMENT THE PASS NUMBER (SPASS 
eTVPE VEND PASS #XXXKX'” (WHERE XXX 1S A DECIMAL NUMBER) 
:eIF THERES A MONITOR GO TO It 
:eIF THERE ISN'T JUMP TO GOAGIN 


023246 $eoP 
023246 000004 SCOPE 
023250 005037 001302 CLR STSTNM ;;ZERO THE TEST NUMBER 
023254 005237 001416 INC $PASS “INCREMENT THE PASS NUMBER 
023260 100004 BPL 10$ ‘be BRANCH IF STILL POSITIVE 
023262 005037 001416 CLR SPASS :8& CLEAR THE PASS LOCATION AND 
023266 005237 001420 INC SPASS+2 [@@ INCREMENT SPASS*2 TO SHOW 1 OVERFLOW 
023272 005327 10$: DEC (PC)+ LOOP? 
023274 000001 SEOPCT: .WORD 1 
023276 003076 BGT $DOAGN rrYES 
023300 012737 MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 
023302 000001 SENDCT: .WORD 1 
023304 023274 SEOPCT 
23306 105737 002710 TSTB. _—- EOPLOC :@@ SEE IF EOP MESSAGES ARE TO PRINT 
023312 001420 BEQ 1$ '@@ BRANCH IF THEY ARE 
023314 005737 001312 TST SERTTL [8@ SEE IF ANY ERRORS THIS PASS 
023320 001020 BNE 2$ [@@ BRANCH IF THERE ARE TO PRINT EOP 
023322 105737 002711 TSTB  —« EOPLOC +1 '@& SEE IF ERROR OCCURED IN ANOTHER DEVICE 
023326 001012 BNE 1$ ‘@& BRANCH IF ANY TO PRINT EOP 
23330 105737 027423 TSTB = CHARCT “@& SEE IF ANY CHARACTER WAS INPUTED 
023334 001447 BEQ $GET42 :@& BRANCH IF NOT 
3336 122737 000007 027423 CMPB ss #7, CHARCT :@& SEE IF OTHER THAT (*G) TYPED, REQUESTING EOP 
023344 001443 BEQ $GET42 °@& BRANCH IF A (*G) = THIS NOT MEANT FOR EOP ROUTINE 
023346 105037 027423 CLRB  —s CHARCT “@& CLEAR THE LOCATION 
023352 000405 BR 3$ ‘88 GET OVER SERTTL TEST AND <CRLF> PRINT 
023354 005737 001312 1$: TST SERTTL °@& SEE IF AN EXTRA <CRLF> NEEDS PRINTING 
023360 001402 BEQ 3§ :@& BRANCH IF NOT 
023362 104401 001405 2$: TYPE  ,$CRLF [@& TYPE A <CRLF> TO SPACE EOP FROM ERROR 
02 105037 002711 3$: CLRB —s- EOPLOC+1 ;0& CLEAR THE UPPER BYTE OF EOPLOC 
023372 104401 023503 TYPE SENDMG -TYPE "END PASS # 
023376 013746 001420 MOV $PASS+#2,-(SP) be MOVE OVERFLOW TO STACK FOR PRINTING 
023402 013746 001416 MOV $PASS,-(SP) >:MOVE $P ASS TO THE STACK FOR PRINTING 
023406 104406 TYPDE °8& TYPE THE NUMBER IN EXTENDED DECIMAL 
023410 104401 023500 TYPE SENULL oo TYPE A NULL CHARACTER 
023414 005737 001312 TST $ERTTL '€& SEE IF ANY ERRORS THIS PASS 
023420 001413 BEG 4$ BB BRANCH AROUND NUMBER OF ERRORS MESSAGE IF NONE 
023422 022737 000001 002416 CMP #1, QTYBRD '8@ SEE IF ONLY 1 BOARD IS BEING TESTED 
023430 001007 BNE 4$ 88 BRANCH IF NOT - "TOTAL ERRORS' 1S MEANINGLESS 
023432 104401 027424 TYPE TESLR “88 TYPE: ° TOTAL ERRORS SINCE LAST REPORT ' 
023436 013746 001312 MOV SERTIL.-(SP)  :88 PUT SERTTL ON STACK FOR PRINTING 
023442 10440 TYPDS :@& TYPE THE NUMBER OF ERRORS IN DECIMA 
023444 004737 003126 JSR PC, ERCAPT [8& GO CAPTURE THE DEVICE, PASS & # OF ERRORS 
023450 104401 001405 4$: TYPE  ,$CRLF :@& TYPE A <CRLF> 
023454 013700 000042 $GET42: MOV a#42,R0 :;GET MONITOR ADDRESS 
023460 001405 BEQ $DOAGN BRANCH IF NO MONITOR 
023462 00000 RESET S:CLEAR THE WORLD 
023464 004710 SENDAD: JSR PC, (RO) °:G0 TO MONITOR 
023466 000240 NOP SAVE ROOM 
023470 000240 NOP >: FOR 
023472 000240 NOP SSACTV1 


023474 SDOAGN: 
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END OF PASS ROUTINE SEQ 0119 
023474 137 JMP a(PC)+ ;;RETURN 
023476 023516 SRTNAD: .WORD GOAGIN 
023500 377 377 000 SENULL: .BYTE <-1,-1,0 3;NULL CHARACTER STRING 
023503 105 116 104 SENDMG: .ASCIZ /END PASS #/ 
2805 023516 005037 001422 GOAGIN: CLR SDEVCT ;CLEAR DEVICE COUNT 
2806 OS 3266 022737 000001 002416 CMP #1 ,QTYBRD 71S THERE ONLY ONE DEVICE UNDER TEST? 
2807 023530 001002 BNE RSTRT >BR, IF NOT 
2808 0 $290 000137 011206 JMP REINIT 3GO0 DO ANOTHER PASS 
2809 023536 005037 001424 RSTRT: CLR SUNIT ;CLEAR UNIT NUMBER 
2810 023542 000137 011006 JMP BEGIN ;GO BEGIN TEST OF NEXT DEVICE 








SS og om hd GEN NPR INTFC 


TYPE ROUTI 
2811 


023546 


023710 
023714 


023732 
023734 


105737 
1000 


—_ 
~ 
~ 
~~ 


Sss83sss 
wma Pn 
NOLSe~N 
MWOoOn 
UNO 


— 
~ 


001357 


000002 
000001 


000100 


023616 
030250 


000040 


000002 
000011 
000200 


024110 


023760 
001356 


001354 
000001 
023760 
024110 


000040 
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001432 
001433 


001433 


-SBTTL TYPE ROUTINE 


FRAAARERAEAAARAARE EAA REEEAA AERA AREA AAAE HARA AAEAAAAHAAAAARAAAAEAAEE 


:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 ah F 


; *NOT 

3; *NOTE2: 
;*NOTES: 
-t 


*CAL 
1) “USING, A TRAP INSTRUCTION 


TYPE 
MESADR 


5$: JSR 
6$: 


7$: DECB 


B 
“HORIZONTAL TAB 
bs: MOVB 


SEQ 0120 


ieTHE ROUTINE “i INSERT A NUMBER OF NULL CHARACTERS AFTER A LI NE 


FEED. 
ULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


»MESAD 


1 


STPFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),RO 
a 


62 
#APTSPOOL , SENVM 
62$ 


RO,61$ 
PC, SATY3 


0 
#APTCSUP,SENVM 
60$ 


(RO)+,-(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
#HT, (SP) 

8$ 

#CRLF, (SP) 
5$ 


(SP)+ 


SCHARCNT 
$ 


2 
PC, ,STYPEC 
oe AK, ores 


2 
SNULL ,- (SP) 
1(SP) 

$ 


6 

PC ,STYPEC 
SCHARCNT 
7$ 


PROCESSOR 
#’ CSP) 


;:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


+31 THERE A TERMINAL? 


IF YES 
:ILEAVE. IF NO TERMINAL 


;SAVE RO 
£3 GEN ADDRESS OF ASCIZ STRING 
‘3 RUNNING IN APT MODE 
3NO,GO CHECK * — ee 
::SPOOL MESSAGE T 
3;NO0,GO CHECK FOR. CON $0 LE 
::SETUP MESSAGE ety FOR APT 
++ SPOOL age 
aS eo DRESS. 
F CONSOLE SUPPRESSED 
ES, SKIP TYPE OUT 
: PUSH CHARACTER TO BE TYPED ONTO STACK 
R IF IT ISN*T THE TERMINATOR 
::1F TERMINATOR POP IT OFF THE STACK 
;;RESTORE RO 
fine RETURN PC 


URN 
+ : BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


:7;POP <CR><LF> EQUIV 
3; TYPE A CR AND LF 


7:CLEAR CHARACTER COUNT 

3;GET NEXT CHARACTER 

3:GO0 TYPE THIS CHARACTER 

7:18 IT TIME FOR Cee CHARS.? 

331F NO GO GET NEXT CHAR. 

3:GET # OF FILLER CHARS. NEEDED 

;;AND THE NULL CHAR. 

: DOES A NULL NEED TO BE TYPED? 
BR IF NO--GO POP THE NULL OFF OF STACK 

1:60 TYPE A NULL 

2:00 wed COUNT AS A COUNT 


7;REPLACE TAB WITH SPACE 
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40 


7 
744 
752 
754 
756 
760 
764 


= bap ereharertrerere, 


000207 


023760 
000007 


155364 


000002 
155344 


155340 
000200 
000023 
155312 
155306 
000200 
000021 
000015 
024110 


000012 
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024110 


155356 


027423 
027423 
027423 


027423 
027423 
027423 


000002 


000002 


B 
STYPEC: 


3$: TSTB 


2$: CMPB 


1$: CMPB 


B 
SCHARCNT: .WORD 


$STYPEX: RTS 


PC ,STYPEC 
#7, SCHARCNT 
9$ 


(SP) + 

2$ 

asTPs 
STYPEC 
2(SP) ,a$TPB 
asTKs 

23 
a$TKB,CHARCT 
#200, CHARCT 
#23, CHARCT 
2$ 

asTKs 

3$ 
a$TKB,CHARCT 
#200, CHARCT 
mens 
#CR,2(SP) 
1$ 

SCHARCNT 
STYPEX 
WLF,2(SP) 
STYPEX 
(PC)+ 


0 
PC 


7; TYPE A SPACE 
SSOP. NOT AT 


:;POP SPACE OFF STACK 
3;GET_NEXT CHARACTER 
;;WAIT UNTIL PRINTER IS READY 


:;LOAD CHAR TO BE TYPED INTO DATA REG. 

i SEE IF KEYBOARD Is 7 ING. 
RANCH IF IT ISN'T 

‘ie PUT CHARACTER IN CHARCT 

'@& BIT CLEAR PARITY BIT. 

“@& SEE IF THIS IS A *S. 

:;BRANCH TO CONTINUE IF it ISN'T. 

::WAIT FOR ANOTHER INP 


; A 

; BRANCH BACK oY MORE WAIT IF NOT. 
7331S CHARACTER A CARRIAGE RETURN? 
; BRANCH IF NO 

Oe ae CHARACTER COUNT 


:;1S CHARACTER A LINE FEED? 
;;BRANCH IF YES 

;;COUNT THE CHARACTER 

3; CHARACTER COUNT STORAGE 
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BINARY TO OCTAL (ASCII) AND TYPE SEQ 0122 
2812 ~-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


URReReeReeReeeeeeeeeeeeeeeeeeNeeneeeeeeeeeeeateereneeeeeeeeeeeeeee 

*THIS ROUTINE IS USED TO ac x A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;#0CTAL (ASCII) NUMBER AND TYPE IT. 

es ee HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;;0=SUPPRESS LEADING ZEROS 


s*STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*S$TYPOS OR $TYPOC 


*CALL 


* 


CALL: 

3* MOV NUM ,-(SP) > :NUMBER TO BE _ 

:* TYPOS 3;CALL FOR hg a 

;* -BYTE WN :;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3: -BYTE :;M=1 OR 0 

:* 33 1=TYPE LEADING ZEROS 

*¢ 


i* MOV NUM, =-(SP) : NUMBER TO BE TYPED 
i TYPON ::CALL FOR TYPEOUT 
jSTYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
7*CALL 
3* MOV NUM, -(SP) ; NUMBER TO BE TYPED 
se TYPOC ::CALL FOR TYPEOUT 
024114 017646 000000 $TYPOS: MOV a(SP),-(SP) :;PICKUP THE MODE 
024120 116637 000001 024337 MOVB 1(SP),SOFILL 3;LOAD ZERO FILL SWITCH 
024126 112637 024341 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
024132 062716 000002 ADD #2, (SP) s;ADJUST RETURN ADDRESS 
24136 0004 BR $TYPON 
024140 112737 000001 024337 $TYPOC: MOVB #1,SOFILL ;SET THE ZERO FILL SWITCH 
024146 112737 000006 024341 MOVB #6. SOMODE+1 SET FOR SIX(6) DIGITS 
024154 112737 000005 024336 S$TYPON: MOVB #5. $OCNT 3;SET THE ITERATION COUNT 
024162 010346 MOV R3,-(SP) 7 7SAVE R3 
024164 0104 MOV R4,-(SP) s SAVE R4 
024166 010546 MOV RS,-(SP) 7; SAVE R5 
024170 113704 024341 MOVB SOMODE +1. R4 ::GET THE NUMBER OF DIGITS TO TYPE 
024174 005404 NEG 
024176 062704 000006 ADD 16.R6 + SUBTRACT IT FOR MAX. ALLOWED 
024202 110437 024340 MOVB R4 , SOMODE SAVE IT FOR USE 
024206 113704 024337 MOVB SOFILL,R4 >:GET THE ZERO FILL SWITCH 
024212 016605 000012 MOV 12(SP),R5 7:PICKUP THE INPUT NUMBER 
024216 005003 CLR R3 :;CLEAR THE OUTPUT WORD 
024220 006105 1$: ROL RS ;;ROTATE MSB INTO ‘'C’' 
024222 000404 BR 3$ 3:G0 DO MSB 
024224 006105 2$: ROL RS : FORM THIS DIGIT 
024226 006105 ROL RS 
24230 006105 ROL R5 
024232 010503 MOV RS,R3 
24234 006103 3$: ROL ps 7:GET LSB OF THIS DIGIT 
24236 105337 024340 DECB SOMODE :; TYPE THIS DIGIT? 
024242 100016 BPL 7$ 7;BR IF NO 
024244 042703 177770 BIC #177770,R3 73GET RID OF JUNK 
024250 001002 BNE 4$ s TEST FOR 
024252 005704 TST R4 ¢: SUPPRESS THIS 0? 
024254 001403 BEQ 5$ :BR IF YES 
024256 005204 4$: INC R4 >:DON'T SUPPRESS ANYMORE 0'S 
24260 052703 000060 BIS #'0,R3 MAKE THIS DIGIT ASCII 
024264 052703 000040 5$: BIS # RS 7;MAKE ASCII IF NOT ALREADY 
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024270 110337 024334 MOVB ~—R3,, 8S :;SAVE FOR TYPING 

024274 104401 024334 TYPE ay °:G0 TYPE THIS DIGIT 

024300 105337 024336 7$: DECB =: $OCNT S:COUNT BY 

024304 003347 BGT 2$ *:BR IF MORE TO DO 

024306 002402 BLT 6$ ::BR IF DONE 

024310 005204 INC RG +: INSURE LAST DIGiT ISN'T A BLANK 
024312 000744 BR 2$ ':G0 DO THE LAST DIGIT 

024314 012605 6$: MOV (SP)+,R5 =: RESTORE RS 

024316 012604 MOV (SP) +, RG i SRE STORE RG 

024320 012603 MOV (SP)+_R3 S:RESTORE R3 

024322 016666 000002 000004 MOV 2(SP) .4(SP) S:SET THE STACK FOR RETURNING 
024330 012616 MOV (SP) +. (SP) 

024332 000002 RTI 3 ;RETURN 

024334 000 aS: .BYTE 0 ‘:STORAGE FOR ASCII DIGIT 
024335 000 "BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
024336 000 SOCNT: {BYTE 0 S:OCTAL DIGIT COUNTER 

024337 000 SOFILL: .BYTE 0 ::ZERO FILL SWITCH 

024340 000000 SOMODE: .WORD 0 ‘:NUMBER OF DIGITS 10 TYPE 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0124 





2813 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SRRRAAAAAARAAAARAAAAA HEATER EAHA AAAAAAAAAAAAAAAAAARERAAAAAARERAAARAE 
[*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
[*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
S*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
S*BEFORE THE FIRST DIGIT OF THE NUMBEP. LEADING ZEROS WILL ALWAYS BE 
; sREPLACED WITH SPACES. 
i* : 
3t MOV NUM, -(SP) ;:;PUT THE BINARY NUMBER ON THE STACK 
3° TYPDS °:G0 TO THE ROUTINE 
3* 
[@& IF YOU SHOULD HAVE A NUMBER GREATER THAN 32767 TO PRINT, LOAD THE 
“8& MULTIPLE OF 32768 ON THE STACK, THEN THE REMAINDER AS YOU WOULD 
*@& ABOVE. FOR INSTANCE, WHEN INCREMENTING A COUNTER TO BE PRINTED, 
*@& TEST FOR NEGATIVE. {Ff NEGATIVE, CLEAR THE LOCATION AND INCREMENT 
ie a SPECIAL OVERFLOW LOCATION. 
: MOV OVFNUM,-(SP)  ;&& PUT OVERFLOW NUMBER ON STACK 
rs MOV NUM ,-(SP) 388 PUT REMAINING NUMBER ON STACK 
-88 TYPDE 388 GO TO THE ROUTIN 
024342 012737 000001 001364 $TYPDE: MOV #1,$TMP2 :@& SHOW ENTRY AT $TYPDE 
024350 000402 BR $TYPD :@& GO TO ROUTINE 
024352 005037 001364 $TYPDS: CLR $TMP2 °8& SHOW ENTRY AT $TYPDS 
024356 $TYPD: 
024356 010046 MOV RO,-(SP) 3;PUSH RO ON STACK 
4360 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
024362 010246 MOV R2,-(SP) 3:PUSH R2 ON STACK 
24364 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
24366 010546 MOV R5/=(SP) ::PUSH R5 ON STACK 
024370 012746 020200 MOV #20200,-(SP) SET BLANK SuITCH AND SIGN 
024374 016605 000020 MOV 20(SP),R5 3:;GET THE INPUT Ni 
024400 100004 BPL 1$ ;;BR IF INPUT IS 
024402 005405 NEG R5 :;MAKE THE BINARY MUNBER POS. 
24404 112766 000055 000001 MOVB = #"*=, 1(SP) ::MAKE THE ASCII NUMBER NEG. 
024412 005000 1$: CLR RO :: ZERO THE CONSTANTS INDEX 
024414 012703 024656 MOV #SDBLK,R3 i: SETUP THE OUTPUT POINT 
024420 112723 000040 MOVB =o #"—, (RS) ¢ ::SET THE FIRST UMARACTER TO A BLANK 
024424 005002 2$: CLR . [:CLEAR THE BCD ER 
024426 016001 024646 MOV SDTBL(RO),R1 ::GET THE CONSTAN 
024432 160105 3$: SUB R1,R5 3 FORM THIS BCD DIGIT 
024434 002402 BLT 4$ [:BR IF DONE 
024436 005202 INC R2 + ON CREASE THE BCD DIGIT BY 1 
024440 000774 BR 3$ 
024442 060105 4$: ADD R1,R5 :;ADD BACK THE CONSTANT 
024444 005702 TST R2 >: CHECK IF BCD DIGIT=0 
024446 001002 BNE 5$ > FALL THROUGH IF 0 
024450 105716 TSTB. ss (SP) S;STILL DOING LEADING 0°S? 
024452 100407 BMI 7$ “BR IF YES 
024454 106316 5$: ASLB = (SP) :MSD? 
024456 103003 BCC 6$ ‘:BR IF NO 
024460 116663 000001 177777 MOVB 1(SP),-1(R3)  ::YES-=SET THE SIGN 
024466 052702 000060 6$: BIS #'0,R2 ‘:MAKE THE BCD DIGIT ASCII 
024472 052708 000040 7$: BIS Re ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
024476 11022 MOVB RO (R3)+ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
024500 005720 TST (RO) + +: JUST INCREMENT ING 
024502 020027 000010 CMP RO, #10 *:CHECK THE TABLE INDEX 
024506 002746 BLT 2$ *:G0 DO THE NEXT DIGIT 























CONVERT BINARY 
024510 


024656 


TO 


023420 
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177777 
001364 
000020 
024670 


024656 
001364 


000002 
000002 


024665 


000002 


001750 


177776 


000006 


024664 
024656 


000004 


000144 


8$: 


10$: 


15$: 


SDTBL: 
S$DBLK: 


. WORD 
~-BLKW 
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8$ 
RS,R2 
6$ 
(SP)¢+ 


“1(SP) ,=2(R3) 
(R3) 


STMP2 

10$ 
20(SP) 
10$ 
PC,EXPAND 
(SP)+,R5 


#" ,$DBLK 


2(SP) ,4(SP) 
(SP)+, (SP) 


10000. 
5 


, 1000. 





0 
1 


,100. 


SEQ 0125 
3360 9 EXIT 


5 cn HE ‘‘- 
0 CHANGE T Ci! 
WAS a sD. THE FIRST NON-ZERO? 


ior IF NO 
tI YES~-SET THE SIGN FOR TYPING 
::SET THE TERMINATOR 

88 WAS ENTRY AT $TYPDS? 

*8& BRANCH IF SO 

88 A THE OVERFLOW LOCATION 
'@& BRANCH IF NON-ZERO 

°8& GO EXPAND THE DECIMAL NUMBER 


::POP STACK INTO RS 
::POP STACK INTO R3 
::POP STACK INTO R2 
::POP STACK INTO R1 
;;POP STACK INTO RO 
“NOW TYPE THE NUMBER 
be SEE IF ENTRY WAS AT STYPDS 
:@& BRANCH IF SO 
‘@& ADJUST THE STACK 


388 REPLACE ORIGINAL TERMINATOR 

38% REPLACE ORIGINAL SPACE CHARACTER 
388 REPLACE ORIGINAL SPACE CHARACTER 
;8& RETURN TO USER 

;;ADJUST THE STACK 


;;RETURN TO USER 
10. 


CO]=CDOCOCOOCO 2 2 oe we O00 
PP Pe bd PS Sr Spe + > 


~“ 
wn 
~ 


SN wane bash ete 

onrn oO 
ws 

NWANNNVWIW ASU 


SSSS=s=SNasSloS8S 


— 
— 
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4 


oo 
ror 
, 
an 
NO 
oOo 


000040 


000071 
000012 


000060 
000071 


001362 


024656 


001360 


024661 


001362 
001360 


000002 
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001360 
001360 
001360 


001362 


000007 
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-SBTTL SUBROUTINE TO EXPAND DECIMAL TO LARGER THAN 32767 


SRRAARARARAAAAAAAAEEEAEEAEAETAAAAEAAAAAAAAAARAHRAAAAAAAAAEHERETAAAAEEE 


EXPAND: MOV 
MOV 


1$: 


2$: 


3$: 


48: 


SNUMS: 


#SDBLK+6 RZ :@& MOVE LOCATION OF LCD+1 TO R2 
#SDBLK+12, R3  :8& MOVE NEW LOCATION OF LCD+2 TO R3 
(R3) [8& MAKE SURE TERMINATOR IS THERE 
7 CRB) ,=(R3) itt MOVE THE 5 ASCII'S TO THEIR NEW LOCATIONS 


=(R2) ,-(R3) 88 
~(R2) ,=(R3) 788 


=(R2),-(R3) 388 

#* ,-(R3) 388 MOVE 4 SPACE CHARACTERS TO THE 4 NEW LOCATIONS 
#" ,=(R3) 388 

#* ,=(R3) 388 

#" ,=(R3) 388 

Al iat 88 S STMPO 


78 eCEAR LOCATION TO USE AS ACCUMULATOR 
:8& SAVE STM 


TMP 
STMP1,-(SP) 
STMP1 :8& CLEAR LOCATION Wolem ACCUMULATOR 


#SDBLK+7,R1 [@& MOVE ADDRESS OF 

#SNUMS+10,R2 88 MOVE ADDRESS+10 OF WORD STREAM OF 8°6 TO R2 
26(SP),RO [@& MOVE OVERFLOW LOCATION CONTENTS TO RO 
(R1) ,STMPO [@& MOVE ASCII TO THE TEMPORARY LOCATION 
#'0,$TMPO [8& MAKE LOCATION AN ASCII IF NOT ALREADY 
(R25, $TMPO :@& ADD THE NUMBER TO THE ASCII 

#'9, $TMPO @& HAVE WE SURPASSED ASCII ‘9°? 

4$ '@@ BRANCH IF NOT 

#10.,$TMPO *@& SUBTRACT 10 FROM THE ASCII AND 

R1,R3 °8& MOVE PRESENT ASCII ADDRESS TO R3 

R3 °@& DECREMENT TO NEXT SIGNIFICANT ASCII DIGIT 
(R3) :8& ADD THE CARRY TO THE ASCII 

#'0,(R3) “@& SET BITS TO MAKE IT A NUMBER ASCII 
#°9, (R3) 88 SEE IF CARRY NEEDS TO BE TRANSFERED 
4$ °@& BRANCH IF NOT 

(R3),STMP1 [88 MOVE covre T0 LOCATION sTHPt 

#10. .$TMP1 *@& SUBTRACT 10 DE-IMA 

STMP1, (R3) :8& MOVE IT BACK 

#SDBLK,R3 788 SEE IF ALL POSITIONS HAVE BEEN DONE 
3$ :@& BRANCH BACK IF 

RO [8& DECREMENT THE OvERFLOU LOCATION RO 

2$ °@& BRANCH IF NOT ALL ADDED 

STMPO, (R1) [@& MOVE NEW NUMBER TO LOCATION 

R1 :@& POINT R1 TO THE NEXT ASCH LOCATION 
=(R2) *8& POINT R2 TO NEXT DIGIT TO ADD 
#$DBLK+3,R1 [8& SEE IF ALL DIGITS HAVE BEEN ADDED 

1$ :@& BRANCH IF NOT DONE 

(SP)+,$TMP1 [8& RESTORE $TMP1 

(SP) +, $TMPO '8& RESTORE $TMPO 


PC :8& RETURN 
3,2,7,6,8. 
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TTY INPUT ROUTINE SEQ 0127 
2814 -SBTTL TTY INPUT ROUTINE 
RARRHARRAAAAAAAAT AKA TAK TAA TTA TA TeAAAAKA TAHA Ate eAeeeeKeteeeeeee 
-ENABL LSB 


URkeeeeeneeeeeeeeeeeeeeeeeneeeeeeeeeAAetoeeereeeeeeeeereeeretere 
s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

S*ROUTINE IS ENTERED FROM THE TRAP HANDLER, 

T®SERVICE THE TEST FOR CHANGE IN SOFTWARE Sul tcH WREGISTER TRAP CALL 


 # WHEN OPERATING IN TTY FLAG MODE. 

025136 022737 000176 001340 $ckSwWR: CMP #SWREG, SWR i318 THE SOFT=SWR SELECTED? 

025144 001112 BNE 15$ 

025146 105737 027423 TSTB = CHARCT ie Ste” IF CHARACTER WAS INPUTED DURING PRINT 
025152 001405 BEQ 1$ :®& BRANCH IF NOT 

025154 113746 027423 MOVB CHARCT,-(SP) :8& MOVE CHARACTER TO THE STACK 
025160 105037 027423 CLRB = CHARCT ‘8 CLEAR THE CHARACTER FROM CHARCT 
025164 000405 BR 2$ :@& GO CHECK IT OUT 

025166 105777 154152 1$: TSTB = @STKS >:CHAR THERE? 

025172 100077 BPL 15$ ::IF NO, DON'T WAIT AROUND 

025174 117746 154146 MOVB a$TKB,-(SP) >:SAVE THE CHAR 

025200 042716 177600 2$: BIC #°C177, (SP) i: STRIP-OFF THE ASCII 

025204 022726 000007 CMP #7, (SP)« 1S IT A CONTROL G? 

025210 001404 BEQ 3$ be YES, BRANCH AROUND RETURN TO USER SETUP 
025212 116637 177776 027423 MOVB =2(SP),CHARCT :8& MOVE CHARACTER BACK TO CHARCT 
025220 000464 BR 15$ 78& RETURN TO USER 

025222 123727 001334 000001 3s: CMPB =. $AUTOB, #1 +;ARE WE RUNNING IN AUTO-MCDE? 
025230 001460 BEQ 15$ ::BRANCH IF YES 

025232 104401 025716 ivPc SCNTLG >:ECHO THE CONTROL-G (*G) 

025236 104401 025723 SGTSWR: TYPE  .SMSWR :: TYPE CURRENT CONTENTS 

025242 013746 000176 MOV SWREG,-(SP) 33 SAVE SWREG FOR TYPEQU 

025246 104402 TYPOC °:G60 TYPE=--OCTAL ASCIICALL DIGITS) 

025250 104401 025734 TYPE  ,SMNEW ::PROMPT FOR NEW SWR 

025254 105037 027423 19$: CLRB CHARCT be & CLEAR ANY CHARACTER THAT WAS INPUTED DURING PRINT 
25260 005046 CLR -(SP) *:CLEAR COUNTER 

025262 005046 CLR -(SP) :: THE NEW SWR 

025264 105777 154054 7$: TSTB = aSTKS >:CHAR THERE? 

025270 100375 BPL 7$ :: IF NOT TRY AGAIN 

025272 117746 154050 MOVB  a$TKB,-(SP) :3PICK UP CHAR 

025276 042716 177600 BIC #°C177, (SP) MAKE IT 7-BIT ASCII 

025302 021627 000025 9$: CMP (SP) ,#25 ::1$ IT A CONTROL-U? 

025 001005 BNE 10$ : ]BRANCH IF NOT 

025310 104401 025711 TYPE »$CNTLU YES, ECHO CONTROL-U (“U) 

025314 062706 000006 20$: ADD #6,SP £3 1GNGRE PREVIOUS INPUT 

025320 000746 BR $GTSWR LET'S TRY IT AGAIN 

025322 021627 000015 10$: CMP (SP) #15 t:IS ITA <cR>? 

025326 001022 BNE 16$ > :BRANCH IF 

025330 005766 000004 TST 4(SP) YES, 1s IT ~~ FIRST CHAR? 
025334 001403 BEQ 11 : : BRANCH 

025336 016677 000002 153774 MOV 2(SP) ,aSwWR :: SAVE NEU. suk 

025344 062706 000006 11$: ADD #6,SP *:CLEAR UP STACK 

025350 104401 001405 14$: ‘TYPE SCRLF >: ECHO <CR> AND <LF> 

025354 123727 001335 000001 CMPB ss S$INTAG, #1 ::RE-ENABLE TTY KBD INTERRUPTS? 
025362 001003 BNE ::BRANCH IF NOT 

025 012777 000100 153752 MOV #100, a$TKs *: RE-ENABLE TTY KBD INTERRUPTS 
025372 900002 S$: RTI * = RETURN 

025374 004737 023760 16$: JSR PC, STYPEC >:ECHO CHAR 

025400 021627 000060 CMP (SP) #60 ::CHAR < 0? 

025404 002420 BLT 18$ ::BRANCH IF YES 


025406 021627 000067 CMP (SP) ,#67 7:CHAR > 7? 
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TTY INPUT ROUTINE SEQ 0128 


025412 003015 BGT 18$ s;BRANCH IF YES 
025414 042726 000060 BIC #60, (SP)+ S:STRIP=OFF ASCII 
025420 005766 000002 TST 2(SP) ':1S THIS THE FIRST CHAR 
025424 001403 BEQ 17$ S:BRANCH IF VES 
025426 696316 ASL (SP) [:NO, SHIFT PRESENT 
5430 006316 ASL (SP) + CHAR OVER TO MAKE 
025432 006316 ASL (SP) ROOM FOR NEW ONE. 
025434 005266 000002 17$: INC 2(SP) SSKEEP COUNT OF CHAR 
025440 056616 177776 BIS =2(SP), (SP) 1 SET IN NEW CHAR 
025444 000707 BR 7$ ::GET THE NEXT ONE 
025446 104401 001404 18$: TYPE SQUES TYPE 2<CR><LF> 
025452 000720 TA. BR 20$ i; SIMULATE CONTROL-U 


leaeeseeceeenececccesecceccceneecenccanenqneenneneqeesqcentecetanes 
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ROUTINE TO INPUT A SINGLE CHARACTER FROM TTY SEQ 0129 


-SBTTL ROUTINE TO INPUT A SINGLE CHARACTER FROM TTY 
emi ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*CA 


;* RDCHR :: INPUT A SINGLE CHARACTER FROM Ii€ TTY 
;* RETURN HERE ::CHARACTER IS ON THE STACK 
8 ::WITH PARITY BIT STRIPPED OFF 

025454 011646 $RDCHR: MOV (SP) ,<(SP) :;PUSH DOWN THE PC 

025456 016666 000004 000002 MOV 4(SP) ,2¢SP) *:SAVE THE PS 

25464 105777 153654 1$: TSTB ss @STKS S:WAIT FOR 

025470 100375 BPL 1$ [iA CHARACTER 

025472 117766 153650 000004 MOVB  a$TKB,4(SP) S:READ THE TTY 

025500 042766 177600 000004 BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 

025506 026627 000004 000023 CMP 4(SP),#2% ::1$ 17 A CONTROL-S? 

025514 001013 BNE 3$ ::BRANCH IF NO 

025516 105777 153622 2$: TSTB 3s @STKS S:WAIT FOR A CHARACTER 

025522 100375 BPL 2$ ::LOOP UNTIL ITS THERE 

025524 117746 153616 MOVB a$TKB,-(SP) :GET CHARACTER 

025530 042716 177600 BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 

025534 022627 000021 CMP (SP)+,#21 ::1$ IT A CONTROL-Q? 

025540 001366 BNE 2$ t:1F NOT DISCARD IT 

025542 000750 BR -—tséaSS [:YES, RESUME 

025544 026627 000004 000140 3s: CMP 4(SP),#140 ::1S IT UPPER CASE? 

025552 002407 BLT 4$ ::BRANCH IF YES 

025554 026627 000004 000175 CMP 4(SP) #175 t:1S IT A SPECIAL CHAR? 

625562 003003 BGT 4 ::BRANCH IF YES 

025564 042766 000040 000004 BIC #40,4(SP) >:MAKE IT UPPER CASE 

025572 000002 4$: RTI ::G0 BACK TO USER 


ne=ses o 
—_ nN mo = 
NF SSNS SLOW 
w re Sm 4 

OWOO 

= NW WWI S IO 
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001404 


025700 
025700 
000015 


177777 
001406 


000004 
025702 
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0 
0 
0 
1 
1 
1 
1 


RDLIN 
RETURN HERE 


R3,-(SP) 
#STTYIN,R3 


#STTYING7. ,R3 
4$ 


(SP)+,(R3) 
#177, (R3) 


3$ 

SQUES 

is 

(R3) 98 
9% 

#15, (R3)¢ 
$ 


WSTTYIN, 4(SP) 


*U/<15><12> 
G/<15><12> 

15><12>/SWR = 
NEW = / 


0 
0 
? 
/ 
/* 
: 





SEQ 0130 


-SBTTL ROUTINE TO INPUT A STRING FROM TTY 


FRRAAAARARAAAAAAAAAAEAAAAAAAERAEEAAAERAAAAAAAAAAAAAAKAAAAAHAAAAAEEE 


Sta ROUTINE WILL INPUT A STRING FROM THE TTY 


7; INPUT A STRING FROM THE T 
Se ORINA OF FIRST CHARACTER "uit BE ON THE STACK 
ae WILL BE A BYTE OF ALL O'S 


:SA Vv 
:IGET ADDRESS 
: sBUF v's a 
::G0 READ ONE CHARACTER FROM THE TTY 
::GET CHARACTER 
::1S IT A RUBOUT 
:7SKIP IF NOT 
33 TYPE A ‘?° 
7:CLEAR THE BUFFER AND LOOP 
3;ECHO THE CHARACTER 


+ CHECK FOR RETURN 
LOOP IF NOT RETURN 
SECLEAR RETURN (THE 15) 

sTYPE A ty FEED 


ti RESTORE R 

:tADJUST THE STACK AND PUT ADDRESS OF THE 
3 FIRST ASCII CHARACTER ON IT 

+: RETURN 

i} STORAGE F 0 FOR ASCII CHAR. TO TYPE 
HIRESERVE. a BYTES FOR TTY INPUT 
S:CONTROL "U" 


7: CONTROL "'G"’ 
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READ A DECIMAL NUMBER FROM THE TTY 


2815 


025746 011646 
025750 016666 000004 


025770 010037 026114 


0 000055 


701 000060 


701 000071 
427 
716 170000 


oO 

~™ 

o 

o 

= 

~ 

-—-O-0— 406 — 
SaSNSnS==SN8S 
SNFSSsVss 
= 


—nrmnnr 


oO 

S 

w 

La 

—— 

oo 

rrr 

oou—0O—— = 
AMUN “AAOOnon 


000060 


S883se 


000012 


° 
™ 
3 
“J 
o 
oooo 
4 — — — 
SOO 
Sox 


—— 
sss 
yh ah al 
son 
o—n 
—OOn 


? 


001404 


\— — — 
MOA LMS 


-SBTTL 


PURRERARKAA RAHAT H KATH AAHe KEK eKAAAKAAAAeHeKeReeKeeKeeeeetetere 
DECIMAL (ASCII) NUMBER FROM THE TTY AND 
;*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 
; 7 L A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
ETE NUMB RETYPED. THE INPUT IS TERMINATED BY THE 
USER TYPING A_CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER 


*THIS ROUTINE WILL READ A 


READ A DECIMAL NUMBER FROM THE TTY 


: #POSITIVE 32767 TO NEGATIVE 32768. 


*? 
-* 


$RDDEC: 
000002 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


RDDEC 
RETURN HERE 


MOV (SP) ,-(SP) 
MOV yh Tig SP) 
MOV - (SP) 


MOV Rt 7 (SP) 
MOV R2,-(SP) 


MOV (SP)+,RO 


MOV RO,6$ 
CLR = (SP) 
CLR 


R2 
CMPB #'=, (RO) 
2$ 


MOVB (RO)+,R2 
MOVB tee 


$ 

CMPB #'0,R1 
5$ 

CMPB #'9,R1 

BIT #°C7777, (SP) 
5$ 
(SP) 

MOV (SP) ,-(SP) 
(SP) 


(SP) 
ADD (SP)+, (SP) 


;;READ A DECIMAL NUMBER 
;;NUMBER IS ON TOP OF THE STACK 


dite ad ba roa FOR 
INPUT NUMBER 


‘TBR IF NO MINUS SIGN 


3 ER USE 
;3PICKUP THIS CHARACTER 
;:GET OUT IF ZERO 

33;MAKE SURE THIS CHARACTER 
3:18 A DIGIT BETWEEN 0 & 9 


et yt LET NUMBER GET TO BIG 
R IF NUMBER WOULD OVERFLOW 


: TSAVE FOR LATER 
33%4 


33*8. 


37*10. 

: OVERFLOW ISN'T ALLOWED 
:;STRIP AWAY THE ASCII JUNK 
7;ADD IN THIS DIGIT 

: OVERFLOW ISN'T ALLOWED 


;LOOP 
3 CHECK IF NUMBER IS NEG 


;BR IF NO 
T:YES--NEGATE THE NUMBER 
;;SAVE THE RESULT 
:;POP STACK INTO R2 
;3POP STACK INTO R1 
: POP STACK INTO RO 


URN 
i CLEAN PARTIAL — FROM STACK 
3;SET A_TERMINAT 
3; TYPE THE INPUT oP TO BAD CHAR. 
«DUNE GOES HERE 


: ETRY AGAIN 


IS 


SEQ 0131 
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READ AN OCTAL NUMBER FROM THE TTY 







SEQ 0132 






















2816 .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
FRRAAARARARAAAAAAARAAAAARAAAAAATE AAA AERA AAAREAAAAA RARER AAKAAAAA TENS 
S*THIS ROUTINE 4i-4 oe AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
‘*CHANGE IT TO BINA 
:*THE INPUT CHARACTERS WILL BE CHECKED TO renee THEY ARE LEGAL 
OC TAL pers IF AN ILLEGAL CHARACTER IS READ "'2"* WILL BE TYPED 
s*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMP OMPLETE NUMBER MUST 
ab ere BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
;* 
3* OCT 7;READ AN OCTAL NUMBER 
;* RETURN HERE 7;LOW ORDER BITS ARE ON TOP OF THE STACK 
“Ted 7:HIGH ORDER BITS ARE IN $HIOCT 
026124 011646 S$RDOCT: MOV (SP) ,-(SP) Lyte te SPACE FOR THE 
026126 016666 000004 000002 MOV 4(SP) ,2¢SP) +3 INPUT NUABER 
26134 010046 MOV RO,-(SP) :PUSH RO ON STACK 
26136 01014 MOV R1,-(SP) +: PUSH R1 ON STACK 
026140 010246 MOV R2,-(SP) + PUSH R2 ON ne 
026142 104412 1$: RDLIN :READ AN ASCIZ L 
026144 012600 MOV (SP)+,RO GET ADDRESS OF att CHARACTER 
026146 010037 026252 MoV RO,5$ :;AND SAVE IT 
026152 005001 CLR R1 3;CLEAR DATA WORD 
026154 5002 CLR R2 
026156 112046 2$: MOVB (RO)+,-(SP) af ef THIS CHARACTER 
026160 001420 BEQ F ZERO GET OUT 
026162 122716 000060 CMPB #'0, (SP) so aKE SURE THIS CHARACTER 
026166 3026 SGT 3731S AN OCTAL DIGIT 
026170 122716 000067 CMPB #'7,(SP) 
026174 2423 BLT 4$ 
026176 006301 ASL R1 t3t2 
26200 006102 ROL R2 
026202 006301 ASL R1 37%4 
026204 006102 ROL R2 
026206 006301 ASL R1 338 
026210 006102 ROL R2 
026212 042716 177770 BIC #*C7, (SP) 3;STRIP THE ASCII JUNK 
026216 062601 ADD (SP)+,R1 :;ADD IN THIS DIGIT 
026220 000756 BR 2$ 3; LOOP 
026222 005726 3$: TST (SP)+ ::CLEAN TERMINATOR FROM STACK 
026224 010166 000012 MOV R1,12(SP) :;SAVE THE RESULT 
26230 010237 026262 MOV R2,$HIOCT 
026234 012602 MOV (SP)+,R2 :3POP STACK INTO R2 
26236 012601 MOV (SP)+,R1 ;POP STACK INTO R1 
026240 012600 MOV (SP)+,RO ::POP STACK INTO RO 
026242 000002 RTI 3 RETURN 
026244 005726 4$: TST (SP)+ ::CLEAN PARTIAL FROM STACK 
026246 105010 CLRB (RO) 3;SET A TERMINATOR 
026250 104401 TYPE 7; TYPE UP THRU THE BAD CHAR. 
026252 5$: -WORD 0 eae ARES 
026254 104401 001404 TYPE ,SQUES 33""" “CR & LF 
026260 730 BR 1$ ::TRY AGAIN 
026262 000000 S$HIOCT: .WORD 0 ;;HIGH ORDER BITS GO HERE 
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026316 


026320 


026350 


011646 
016666 
000002 


026306 


025746 


000002 


026320 


000004 000002 
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-SBTTL TRAP DECODER 


FERRARA AAAAAAAARAHERAEAAAETAAAEAAAAAAAAAAAAAARAAAEHAAAALAHAEHEAAKETEEE 


*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘TRAP’ INSTRUCTION 


:*AND USE IT TO INDEX THROUGH THE TRAP TABLE 


SEQ 0133 


FOR THE STARTING ADDRESS 


:*OF THE DESIRED — THEN USING THE ADDRESS OBTAINED IT WILL 
200.1 TO o— ROUTIN 


$7RAP2 


MOV 
MOVB 
ASL 
44 


: MOV 
MOV 
TI 


are alr RO ‘60 
s THIS” IS USE TO ye Pe “GgeTbRI" MACRO 


(SP) 
4(SP),2(SP) 


R 
-SBTTL TRAP TABLE 
s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


$TRPAD: 
$ 


SRDDEC 


;*BY THE ‘'TRAP’’ INSTRUCTION 
ROUT INE 


STRAP2 
;>CALL=TYPE 
3; CALL=TYPOC 
+3 CALL= TYPOS 


3;CALL= =GTSWR 
3; CALL=CKSWR 
3; CALL=ROCHR 
3; CALL=RDLIN 
3; CALL=RDOCT 
3; CALL=RDDEC 


AVE RO 
:ieer TRAP ADDRESS 


KUP BY 2 
:3GET RIGHT BYTE OF TRAP 
fated Ue BE pecencn 


i INDEX T 


TO ROUT INE 


;;MOVE THE PC DOWN 
;;MOVE THE PSW DOWN 
;sRESTORE THE PSW 


TRAP+1 (104401) 
TRAP+2(104402) 
TRAP+3(104403) 
TRAP +4 (104404) 
TRAP+5 (104405) 
TRAP +6 (104406) 
TRAP+7 (104407) 
10104410 
1(104411 
TRAP+12(104412 
3(104413 
4(104414 


TRAP+1 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS 4 LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 

TYPE DECIMAL NUMBER GREATER THAN 32767 
GET SOFT-SWR SETTING 

TEST FOR CHANGE IN SOF T-SWR 

TTY TYPEIN CHARACTER ROUTINE 

TTY TYPEIN STRING ROUTINE 

READ AN OCTAL NUMBER FROM TTY 

READ A DECIMAL NUMBER FROM TTY 
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SCOPE HANDLER ROUTINE SEQ 0134 


2818 -SBTTL SCOPE HANDLER ROUTINE 
eeeeeeeKeeatanereeeeeeeeeeeeereeeaeeeeereeeeneeeenerereeeeerereeet 
S*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
:*AND LOAD THE 43.3 NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
[*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

:*THE SWITCH whi: paovieee BY THIS ROUTINE ARE: 


*SW1é= 
*Swo9=1 LOOP ON ERROR 
:*$w08=1 LOOP ON TEST IN SWR<6:0> 
ft SCOPE :;SCOPE=10T 
026352 032777 001000 152760 #SCOPE: BIT #B1T09,aSwR :3LOOP_ON ERROR? 
026360 001406 BEQ 1$ “BR IF NO 
026362 005737 001312 TST SERTTL HSE IF THERE WERE ANY ERRORS YET 
026366 001403 BEQ 1$ :BR IF NOT YET 
026370 013716 001310 MOV SLPERR, (SP) : : FUDGE RETURN 
026374 000002 RTI + RETURN 
026376 032777 040000 152734 18: BIT #BIT14,aSwR ;3LOOP_ON TEST? 
026404 001403 BEO 2$ ‘BR IF NO 
26406 013716 001306 MOV SLPADR, (SP) i: FUDGE RETURN 
026412 00000 RTI URN 
026414 105737 002710 2$: TSTB  —« EOPLOC ‘ie TEST TO SEE IF EOP’S ARE TO PRINT 
026420 001043 BNE 6$ [@@ BRANCH IF NOT 
026422 105737 027423 TSTB CHARCT 88 SEE IF A CHARACTER WAS INPUTED IN A PRINT ROUTINE 
026426 001406 BEQ 3$ :@& BRANCH TO CHECK KEYBOARD IF NOT 
26630 113737 027423 002710 MOVB CHARCT,EOPLOC :8& MOVE THE CHARACTER TO EOPLOC 
26436 105037 027423 CLRB  —- CHARCT '@& CLEAR THE LOCATION 
026442 000411 BR 4$ ‘@& BRANCH TO CHECK THE CHARACTER 
026444 105777 152674 3$: TSTB 3s @STKS [8& SEE IF EOP REQUESTED 
026450 100055 BPL 8$ :@& BRANCH IF NOT 
026452 117737 152670 002710 MOVB a$TKB,EOPLOC  :8& GET CHARACTER 
26460 142737 000200 002710 BICB  #200,E0PLOC 88 CLEAR PARITY ert 
26466 122737 000030 002710 4$: CMPB ss #30, EOPLOC 78@ SEE IF A (4X) 
026474 001406 BEQ 5$ 88 SAAN I iT IS 
026476 113737 002710 027423 MOVB EOPLOC ,CHARCT 388 MOVE CHARACTER BACK TO CHARCT FOR POSSIBLE FUTURE USE 
26504 105037 002710 CLRB  —s- EOPLOC °@@ CLEAR THE LOCATION 
026510 000435 BR 8% 88 BRANCH T0 START SCOPE ROUTINE 
026512 104401 027042 5$: TYPE  ,HAKTPM :& TYPE: 'HIT ANY KEY TO OBTAIN A PROGRESS REPORT," 
88 EATERS (*x) TO RESUME EOP'S AND EOD'S' 
88 "ENTER THE KEY REPEATEDLY, AS RESETS DONE IN THE D 
388 "MAY CLEAR THE CHARACTER BEFORE THE TESTS FOR THE 
026516 105337 002710 DECB - EOPLOC “@& MAKE *X ANOTHER CHARACTER AND 
026522 105037 027423 CLRB  —s- CHARCT *8& CLEAR ANY CHARACTER THAT MAY BE THERE 
026526 000426 BR 8$ °@& BRANCH TO START SCOPE ROUTINE 
26530 105737 027423 6$: TSTB = CHARCT °@& SEE IF A CHARACTER WAS INPUTED IN THE TYPE ROUTINE 
026534 001011 BNE 7$ [@& GO TEST THE CHARACTER IF SO 
26536 105777 152602 TSTB «= @STKS [88 SEE IF CHARACTER WAITING 
026542 100020 BPL 8$ :8& BRANCH IF NO 
026544 117737 152576 027423 MOVB a$TKB,CHARCT  :8& MOVE THE CHARACTER FOR TESTING 
026552 142737 000200 027423 BICB  #200,CHARCT '8& CLEAR THE PARITY BIT 
26560 122737 000030 027423 7s: CMPB 0s #30, CHARCT '8& SEE IF ANOTHER (*X) WAS INPUTED 
026566 001 BNE BE :8& BRANCH IF NOT 
026570 105037 002710 CLRB = EOPLOC :8& CLEAR EOPLOC TO RESUME EOP MESSAGES 
026574 104401 027352 TYPE  ,EOPRSM '8& TYPE: "EOP'S AND EOD'S WILL RESUME PRINTING' 
26600 105037 027423 CLRB = CHARCT '@& MAKE CHARACTER SOMETHING ELSE 
026604 105737 027423 8$: TSTB  —s- CHARCT '8& SEE IF A CHARACTER IS WAITING 
026610 001410 BEQ 9$ °@& BRANCH AROUND (*Y) TEST IF NOT 
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SCOPE HANDLER ROUTINE SEQ 0135 
026612 122737 000031 027423 CMPB 0s #31, CHARCT :8& IS THIS A (*Y) (REQUEST FOR RUN SUMMARY) 
026620 001004 BNE ‘8 BRANCH IF NOT 
026622 004737 003170 JSR PC,PTCAPT *8& GO TO SUBROUTINE TO PRINT SUMMARY 
026626 105037 027423 CLRB = CHARCT jO& CLEAR THE CHARCT LOCATION SO SUMMARY NOT REPEATED 
026632 104410 9$: CKSWR “TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER 
“AAMMASTART OF CODE FOR THE XOR TESTERSAAAS 
026634 000416 $xTSTR: BR 6$ self RUNNING ON THE SxOR", TESTER CHANGE 


Shed INSTRUCTION TO A ‘NOP'’ (NOP=240) 


026636 013746 000004 MOV @#ERRVEC,-(SP) ;;SAVE THE CONTENTS oF” THE ERROR VECTOR 
026642 012737 026662 000004 MOV #SS,QWERRVEC = 5;SET FOR TIMEOUT 
026650 005737 177060 TST a#177060 ME OUT ON XOR? 
026654 012637 000004 MOV (SP)+, a#ERRVEC 3 ;RESTORE THE ERROR VECTOR 
026660 000444 BR $SVLAD ::G0 TO THE NEXT TEST 
026662 022626 5$: CMP (SP)+, (SP)+ 3;CLEAR THE STACK AFTER A TIME OUT 

6664 012637 000004 MOV (SP)¢, * aFERRVEC 3 sRESTORE THE ERROR VECTOR 
026670 000432 BR 7$ LOOP ON THE PRESENT TEST 
026672 6$:;##MHHEND OF CODE FOR THE KOR’ tESTERAAAMA 
026672 032777 000400 152440 BIT #B1T08,aSwR :;LOOP ON SPEC. TEST? 
026700 001432 BEQ 4$ ::BR IF NO 
026702 005046 CLR -(SP) :;CLEAR A TEMP. LOCATION 
026704 117716 152430 MOVB aSwR, (SP) pity THE DESIRED airs NUMBER 
026710 042716 000200 BIC #SSWRMK, (SP) MASK OUT UNDESIRED B 
026714 001416 BEQ 8$ : : BRANCH If BAD TEST a wen IN SWR 
026716 022716 000037 CMP #37, (SP) : CHECK THE NUMBER IN THE SWR 
026722 002413 BLT 8$ ;;BRANCH IF TEST NUMBER IS OUT OF RANGE 
026724 011637 001302 MOV (SP), STSTNM *UPDATE THE TEST NUMBER IN STSTNM 
026730 011637 001414 MOV (SP) ,STESTN ‘be UPDATE THE TEST NUMBER IN sTesTN 
ose? 005316 DEC (SP) : BACKUP BY ONE 

67 006316 ASL (SP) ;SCALE THE TEST NUMBER AS AN INDEX 
026740 062716 027466 ADD #SSWOBTBL, (SP) FORM THE ADDRESS OF TEST POINTER 
026744 013637 001306 MOV a(SP)+,$LPADR tISET LOOP ADDRESS TO DESIRED TEST 
026750 000426 BR SOVER ::G0 LOOP ON THE TEST 
026752 005726 8$: TST (SP)+ ::;CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
026754 2$: ;TSTB SERFLG :;HAS AN ERROR OCCURRED? ;8& ELIMINATED FOR CZDRLB 
026754 001406 BEQ $SVLAD 3;;BR IF NO 
026756 013737 001310 001306 /7$: MOV SLPERR,SLPADR 3:;SET LOOP ADDRESS TO LAST SCOPE 
026764 000420 BR SOVER 
026766 105037 001303 4$: CLRB SERFLG 7;ZERO THE ERROR FLAG 
026772 105237 001302 S$SVLAD: INCB STSTNM 3;COUNT TEST NUMBERS 
026776 113737 001302 001414 MOVB STSTNM,STESTN :;SET TEST NUMBER IN APT MAILBOX 

27 011637 001306 MOV (SP), SLPADR 3;SAVE SCOPE LOOP pete be: 
027010 011637 001310 MOV (SP), "SLPERR ::;SAVE ERROR LOOP ADDRESS 
027014 005037 001376 CLR SESCAPE +3 CLEAR THE ESCAPE FROM ERROR ADDRESS 
027020 112737 000001 001315 MOVE #1, SERMAX {ONLY ALLOW ONE(T) ERROR ON NEXT TEST 
027026 013777 001302 152306 SOVER: MOV STSTNM, @DISPLAY : DISPLAY TEST NUMBER 
027034 013716 001306 MOV SLPADR, (SP) z FUDGE RETURN ADDRESS 
027040 000002 RTI RETURN 
027042 136 130 200 HAKTPM: .ASCII /*X/<CRLF>/HIT ANY KEY TO OBTAIN A Sorry teste. /<CRLF> 788 
027116 105 116 124 ASCII] /ENTER (*X) TO RESUME EOP'S AND E0D'S/<CR 
027163 105 116 124 .ASCII /ENTER THE KEY REPEATEDLY, AS RESETS DONE. a THE DIAGNOSTIC7<CRLF> 88 
027256 115 101 131 eASCIZ /MAY CLEAR THE CHARACTER BEFORE THE TESTS FOR THE CHARACTER/<CRLF> at 
027352 136 130 200 EOPRSM: .ASCIZ /*X/<CRLF>/EOP'S AND EOD'S WILL RESUME ee eeetokee 4 4 
Sok oe 060 12 CHARCT: .BYTE 0 38& LOCATION TO = INPUTED CHARACTER 


4 TESLR: -ASCIZ / TOTAL ERRORS INCE LAST REPORT / 788 ERROR MESSAGE FOR SEOP 
EV 
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SCOPE HANDLER ROUTINE SEQ 0136 
027466 SSWOSTBL: 
0274 011246 WORD TST1+#2 sSTARTING ADDRESS+2 OF TEST 1 
027470 011416 . WORD Vsters sSTARTING ADDRESS+2 OF TEST ¢ 
027472 011520 -WORD TST ‘5 sSTARTING ADDRESS+2 OF TEST 
027474 012032 -WORD TST4%, ;STARTING ADDRESS*2 OF TEST 4 
027476 012574 -WORD TST5S+#2 sSTARTING ADDRESS+2 OF TEST 5 
027500 012742 WORD TST6+2 ;STARTING ADDRESS+2 OF TEST 6 
027502 013256 «WORD TST7+2 sSTARTING ADDRESS+2 OF TEST 7 
027504 013406 WORD TST10¢2 sSTARTING ADDRESS+2 OF TEST 10 
027506 013614 WORD TST1142 ;STARTING ADDRESS*2 OF TEST 11 
027510 013752 -WORD TST12+2 sSTARTING ADDRESS+2 OF TEST 12 
027512 014110 «WORD TST13+#2 sSTARTING ADDRESS+2 OF TEST 13 
027514 014246 «WORD TST1442 sSTARTING ADDRESS+2 OF TEST 14 
027516 014410 «WORD TST15+#2 sSTARTING ADDRESS+2 OF TEST 15 
027520 014614 -WORD TST16+2 sSTARTING ADDRESS+2 OF TEST 16 
027522 015024 WORD TST17+#2 sSTARTING ADDRESS+#2 OF TEST 17 
027524 015374 «WORD TST20+2 sSTARTING ADDRESS+2 OF TEST 20 
027526 015752 WORD TST21+#2 sSTARTING ADDRESS+2 OF TEST 21 
027530 016240 «WORD TST22+2 ;STARTING ADDRESS+2 OF TEST 22 
027532 016510 «WORD TST23+2 sSTARTING ADDRESS+2 OF TEST 25 
027534 017220 «WORD TST24+2 sSTARTING ADDRESS+2 OF TEST 24 
027536 017474 «WORD TST25+2 sSTARTING ADDRESS+2 OF TEST 25 
027540 017736 WORD TST26+2 ;STARTING ADDRESS+2 OF TEST 26 
027542 020166 WORD TST27+#2 sSTARTING ADDRESS+2 OF TEST 27 
027544 020356 «WORD TST30+2 sSTARTING ADDRESS+2 OF TEST 30 
027546 020616 -WORD TST31+#2 sSTARTING ADDRESS+2 OF TEST 31 
027250 020720 «WORD TST32¢2 sSTARTING ADDRESS+2 OF TEST 32 
027552 021252 WORD TST33+2 sSTARTING ADDRESS+2 OF TEST 33 
027554 021530 «WORD TST34+#2 sSTARTING ADDRESS+2 OF TEST 34 
027556 022064 -WORD TST35+#2 ZSTARTING ADDRESS+2 OF TEST 35 
027560 022334 WORD TST36+2 sSTARTING ADDRESS+2 OF TEST 36 
027562 022622 -WORD TST37+#2 ZSTARTING ADDRESS+2 OF TEST 37 


i 
_————— 
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ERROR HANDLER ROUTINE 


2819 


027762 


Ses 


—— _ 
Boo -oSoou— 
NR Sn SP 
oa een 
w on 
~ ON 


013716 


022737 
001001 
000000 


000002 


001303 


001302 
002000 


027764 
000001 


001314 
030260 


151424 


001376 


001376 
001000 


001310 
023464 
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001432 
027704 


151376 


000042 


-SBTTL ERROR HANDLER ROUTINE 


PRMCRHMARHARHHAAATTAAE eee TeTeeeAHAAAAHEAAHTAHKATHeKeKeHeeeeTeree 
S*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM te AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERR 


Hood 
SERROR: 
7$: INCB 


208: 


21$: 


22$: BR 
2$: TST 


3$: 
4$: BIT 


5$: 


6$: 


seTHe SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
;*SWi5=1 HALT 


ON ERROR 
INHIBIT cae TYPEOUTS 


BELL ON ERR 


LOOP ON ERROR 


N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


SERFLG 
7$ 


STSTNM,QDISPLAY 


#B1T10, 
1$ 


E 
(SP) ,SERRPC 
#2, SERRPC 


eSERR 
@SERRPC,SITEMB 


#B1T13,aSwWR 
208 

PC ,SERRTYP 
~ , SENV 


2 
a in F " 
PC, SAT 


SESCAPE 
4 


SESCAPE , (SP) 
#B1T9,aSwR 


5$ 

SLPERR, (SP) 
#SENDAD ,a#42 
6$ 


:; TEST FOR CHANGE IN SOFT-SWR 
S3SET THE ERROR FLAG 
DON'T LET THE FLAG GO TO ZERO 
::DISPLAY TEST NUMBER AND ERROR FLAG 
::BELL ON ERROR? 
::NO = SKIP 
;3RING BELL 
“COUNT THE NUMBER OF ERRORS 
be INCREMENT THE ERROR COUNT 
‘;GET ADDRESS OF ERROR INSTRUCTION 


:;STRIP AND SAVE THE ERROR ITEM CODE 
33SKIP ha > ai IF SET 

3;SKIP TYPEOUTS 

;:;G0 TO USER ERROR ROUTINE 


;;RUNNING IN APT MODE 

3:NO,SKIP APT ERROR REPORT 

3;SET ITEM NUMBER AS ERROR NUMBER 
;;REPORT FATAL ERROR TO APT 


;;APT ERROR LOOP 
;;HALT ON ERROR 
::SKIP IF CONTINUE 
::HALT ON ERROR! 
:: TEST FOR CHANGE IN SOFT-SWR 
S:CHECK FOR AN ESCAPE ADDRESS 
::BR IF NONE 
“FUDGE RETURN ADDRESS FOR ESCAPE 
'& SEE IF WE ARE TO LOOP ON ERROR 
:@@ BRANCH OUT IF NOT 
[8& FUDGE RETURN 


s3ACT-11 AUTO-ACCEPT? 
;;BRANCH IF NO 


> RETURN 


SEQ 0137 
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ERROR MESSAGE TYPEOUT ROUTINE SEQ 0138 
2820 ~SETTL ERROR MESSAGE TYPEOUT ROUTINE 


OTT III IIT iii itt litiititiii titi iii iii 
:*THIS ROUTINE USES THE _ CONTROL BYTE’’ (SITEMB) TO DETERMINE WHICH 
[*ERROR 1S TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 
AND RE REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


027764 
027764 010046 “MOV RO, <(SP) SAVE _RO 
027766 005000 CLR RO S:CLEAR RO TO RECEIVE ITEM INDEX 
027770 113700 001314 MOVE  aa#SITEMB,RO *:PICKUP THE ITEM INDEX 
027774 001004 BNE 1$ ‘IF ITEM NUMBER IS ZERO, TYPE THE PC OF THE ERROR 
027776 013746 001316 MOV SERRPC,-(SP) 2 :SAVE SERRPC FOR TYPEOUT 
3;ERROR ADDRESS 
030002 104402 TYPOC 3360 TYPE=-OCTAL ASCII(ALL DIGITS) 
030004 000513 BR 14$ “GET OUT 
030006 010037 001360 1$: MOV RO, STMPO be MOVE RO TO STMPO ee — TEST 
030012 042700 000200 BIC #260,R0 :@&@ CLEAR BIT 7 IF PRESE 
030016 005300 DEC RO [8& MAKE POINTER AN IN DEX 
030020 006300 ASL RO at) SHIFT TO MULTIPLY BY 10 (OCTAL) 
030022 006300 ASL RO +88 
030024 006300 ASL RO 788 
030026 105737 001360 TSTB = $TMPO ‘8& SEE IF ITEM NUMBER IS OVER 200 
030032 100041 BPL 4$ ‘@& BRANCH IF ITEM NUMBER IS LESS THAN 200 
030034 023727 002716 000020 CMP ERRCNT #20 *8& SEE IF 20 (OCTAL) ERRORS HAVE PRINTED 
30042 002404 BLT 2$ *@& BRANCH TO PRINT THE ERROR IF LESS 
030044 003073 BGT 14$ £88 BRANCH TO RETURN IF GREATER - NO MORE DATA IS TO PRINT 
030046 104401 035377 TYPE —_, NOMORE [8& TYPE MESSAGE ANNOUNCING NO MORE PRINTING OF ERRORS 
030052 000470 BR 14$ [8& BRANCH TO RETURN 
030054 022737 000001 002716 2s: CMP #1, ERRCNT ‘88 SEE IF THIS IS THE FIRST ERROR 
030062 001415 BEQ 3$ *8& BRANCH IF IT WAS AND GO TYPE ERROR MESSAGE 
030064 123737 001360 030240 CMPB  =sSTMPO,MEPITM  :8& SEE IF ITEM MATCHES LAST MULTIPLE ERROR 
030072 001011 BNE 3$ :@& BRANCH IF NOT - NEW HEADER NEEDED 
030074 032777 000200 151236 BIT #BIT7,aSuR [8& SEE IF SWITCH REGISTER BIT 7 IS SET 
030102 001054 BNE 14$ *@@ BRANCH TO RETURN IF SWITCH SET 
030104 042700 177400 BIC #177400,R0 [8@ CLEAR UPPER BYTE OF RO EXPOSING ITEM BYTE 
030110 062700 002302 ADD #ER200+4 ,RO ‘@& POINT TO DATA TABLE ENTRY 
030114 000434 BR 9$ :@& BRANCH TO PRINT DAT 
030116 113737 001360 030240 3s: MOVE $TMPO,MEPITM  :8& MOVE ITEM NUMBER TO AMEPITN FOR POSSIBLE FUTURE USE 
030124 042700 177000 BIC #177000, RO [88 CLEAR UPPER BYTE OF RO 
030130 062700 000540 ADD #ER200-$ERRTB,RO:&& ADD 200 BASE POINTER To RO AND 
030134 000402 BR 5$ [8& BRANCH «ROUND ERRCNT CLEAR 
030136 005037 002716 4$: CLR ERRCNT 88 CLEAR ERRCNT SO MULTIPLE ERRORS GET NEW HEADER 
030142 104401 001405 5$: TYPE  ,$CRLF :8& TYPE <CRLF > 
030146 062700 001536 ADD #SERRTB,RO : FORM TABLE POINTER 
030152 012037 030162 MOV (RO)+,6$ ::PICKUP ERROR MESSAGE’ POINTER 
030156 001404 BEQ 7$ 5 eKIP UT yPEOUT IF NO POINTER 
030160 104401 TYPE T;]YPE THE "ERROR MESSAGE" 
030162 000000 6$: ,WwORD 0 “ERROR MESSAGE’ POINTER GOES HERE 
030164 104401 001405 TYPE  ,S$CRLF :ICARRIAGE RETURN’ & “LINE FEED" 
030170 012037 030200 7$: MOV (RO)+,8$ ::PICKUP "DATA HEADER’ POINTER 
030174 001404 BEQ %$ “:SKIP TYPEOUT IF 0 
030176 104401 TYPE T:TYPE THE "DATA HEADER" 
030200 000000 8$: .WORD 0 ZDATA HEADER’ POINTER GOES HERE 
030202 104401 001405 TYPE  ,S$CRLF TIUCARRIAGE RETURN’ & "LINE FEED 
030206 011000 9$: MOV (RO) RO ‘:PICKUP ‘DATA TABLE’ POINTER 
030210 001407 BEQ 13$ ::G0 AROUND ROUTINE TO TYPE THE DATA IF NONE 
030212 013046 10$: MOV a(RO)+,-(SP) | ::PUT OCTAL DATA ON STACK FOR TYPING 
030214 104402 TYPOC :: TYPE AN OCTAL NUMBER 
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ERROR MESSAGE TYPEOUT ROUTINE SEQ 0139 
030216 005710 TST (RO) ::1$ THERE ANOTHER NUMBER? 
030220 001403 BEQ 13$ i FBR IF NO 
030222 104401 033764 TYPE SPACES “TYPE TWO(2) $ CES 
030226 00077 BR {0s “; 30 BACK TO PaINT T € OCTAL NUMBER 
030230 104401 001405 13$: TYPE  ,$CRLF (CARRIAGE RETURN’ t “LINE FEED" 
030234 012600 14$: MOV (SP) +,RO ::REST ORE RO 
030236 000207 RTS PC 33R 
030240 000000 MEPITM: .WORD 0 ‘ige (BCATION TO STORE 200+ ERROR ITEM NUMBER 


CZDRLBO-DR11 GEN NPR INTFC 
APT COMMUNICATIONS ROUTINE 


2821 


2822 


— 
—~ 
VIN NM NNO Nm 
NOE NO NEN 
SoSSssss. Woww 
UN—NONOO NUNS 


mo 

wwe 

Oo ae. 
onuN 


eeseccgsscsusugces = 
asses 


000200 
000001 
000100 
000040 


000001 
000001 
000001 


030504 
000001 
000100 
000004 
000002 
001410 
001426 


001426 


001430 
000004 


000004 
023546 


030506 
001432 
001410 


030505 


030504 
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030506 
030504 


030506 


001432 
001433 


000004 


001410 


030416 
000004 


001412 
000004 


SEQ 0140 


~-SBTTL APT COMMUNICATIONS ROUTINE 


SRERAAAAAAEAAAAAAAAAAEAAAAAEAAAAAAAAEREAAAAAAAAAAARAAAEEEAAERAEEARENE 


$atyi: 
SATY3: 


SATY4: 
SATYC: 


MOVB 
MOVB 


1$: TST 


2$: TSTB 


118: 


12$: 


SMFLG: 
SLFLG: 
SFFLG: 


#1,SFFLG 
#1, SMFLG 


SATYC 
#1,SFFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 

5$ 
emer 


HAPTSPOOL ,SENVM 


a4(S?) ,RO 
#2,4(SP) 
SHSGTYPE 


RO SMSGAD 
(RO) + 


28 

SMSGAD ,RO 
RO 

RO, SMSGLGT 
#4 , SMSGTYPE 
pet 4% 


SP) 
154776. -(SP) 
PC, STYPE 


SFFLG 
12$ 
SENV 


12$ 

eaerwrs 

pat SFATAL 
4(SP) 


#2, 
SASGTYPE 


3;TO REPORT FATAL ERROR 
;3T0 TYPE A MESSAGE 


3;TO ONLY REPORT FATAL ERROR 


;3PUSH RO ON STACK 
3;PUSH R1_ON STACK 
+s SHOULD TYPE A MESSAGE? 


NOT: 
: OPERATING UNDER APT? 


NOT: BR 
33 :°HOULD SPOOL MESSAGES? 
334F NOT: BR 
33GET MESSAGE ADDR. 

:;BUMP RETURN ADDR 
37SEE IF ” DONE W/ LAST XMISSION? 
::1F NOT: WAIT 
7;PUT ADDR IN MAILBOX 
::F IND END OF MESSAGE 


;;SUB START OF MESSAGE 

3:GET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
3;TELL APT TO TAKE MSG. 


33PUT MSG ADDR IN JSR LINKAGE 
BUMP RET 


TURN ADDRESS 
PUSH 199776 ON STACK 
::CALL TYPE MACRO 


une REPORT FATAL ERROR? 
° Ps NOT: BR 


: RUNNING UNDER APT? 


; OT: BR 
i FINISHED LAST MESSAGE? 
:IF NOT: WAIT 
3:GET ERROR # 
;BUMP RETURN ADDR. 
73 TELL abi TO TAKE ERROR 
3;CLEAR FATAL FLAG 


TURN 
:iMESSG.. FLAG 
FLAG 
FATAL FLAG 


=04 
-SBTTL POWER DOWN AND UP ROUTINE 
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R DOWN AND UP ROUTINE SEQ 0141 


FRRAAAAAAAAAAREAAAARAAEAE AAA E THERA AAEAARARAEAAAERARAAAAAAAARAAAAAEE 


“POWER DOWN AND UP ROUTINE 

030510 012737 030526 000024 $PWRDN: MOV #SPURUP,PURVEC ;8& SET UP VECTOR 10 RETURN TO THE HALT BELOW 
030516 012737 000340 000026 MOV #LEVEL7, PWRVEC+2:8& RETURN PRIORITY TO 7 

030524 000000 HALT : MALT 

030526 01 13! 030510 000024 $PWRUP: MOV #SPWRON,PWRVEC ;88 RESET PURVEC TO PWRON ROUTINE AND 

0305 012737 000340 000026 MOV #LEVEL? “PWRVEC#+2:8& PRIORITY TO 7 

030542 012706 001300 MOV #STACK, SP '8@ REINITIALIZE THE STACK 

030946 012746 000340 MOV PEVEL?. -(SP)  ;88 SET UP RETURN PRIORITY. TO 7 AND 

030552 012746 000210 MOV #STAGIN, -(SP) :88 MOVE STAGIN ADDRESS TO STACK AND 

030556 005037 001360 CLR $TMPO '8@ CLEAR WAIT LOOP COUNTER 

030562 005237 001360 1$: INC $TMPO [8 GIVE TTY TIME TO RECOVER | FROM POWER FAILURE 
030566 001375 BNE 1$ *@& BRANCH BACK UNTIL ZERO A 

030570 104401 030576 TYPE SPOWER :@& TYPE THE POWER FAILURE MESSAGE ASCIZED BELOW 
030574 000002 RTI [8 RETURN TO PROGRAM 





SPOWER: erty <CRLF>/POWER FAILURE - RESTARTING PROGRAM/<CRLF > 
-EVEN 


a 
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MULTIPLE BOARD DIALOGUE ROUTINE SEQ 0142 
2824 .SBTTL MULTIPLE BOARD DIALOGUE ROUTINE 
2825 FRARAAAAEEAAAAAHAAAERERAER ETE AAAAEAAAAAAAAAAHRAAERARAAARAARAAEAAEHE 
2826 [>>>>>>>MULTIPLE BOARD DIALOGUE ROUTINE<<<<<<<< 
2827 i oe aateee a. tin ie ae 
2828 030644 012706 001300 MBD: MOV #STACK,SP s INITIALIZE THE STAC 
2829 030650 004737 005660 JSR PC set fup °G0 INITIALIZE THE COMMON TAGS 
2830 030654 104401 035245 TYPE  ,MBDI STYPE: ‘MULTIPLE BOARD DIALOGUE’ 
2831 030660 105037 027425 PROMPT: CLRB tuanete [CLEAR LOCATION FOR POSSIBLE INPUT DURING PRINT 
2832 030664 104401 035300 TYPE sECELR “TYPE: “ENTER COMMAND (CEJDIT, CLJIST, CBJURST CALIBRATION, 
2833 030670 012703 000001 MOV wir ‘EXPECT 1 CHARACTER 
2834 030674 004737 002722 JSR PC.READ :GO READ 1 CHARACTER 
2835 030700 022737 000114 002666 CMP #'C ANSWER SLIST PRESENT TABLE? 
2836 030706 001073 BNE 1$ ‘BRANCH IF NO 
2837 030710 104401 035054 TYPE HEADER STYPE: '# OF © START 2-N 
"BOARDS REGADR VECADR w-B P-LEV CYCLE fT 
2839 030714 013737 001476 002720 MOV $DDW0,DDW :SET UP THE DEVICE DESCRIPTOR WORD FOR PRINTING 
2840 030722 013746 002416 MOV QTYBRD,-(SP) | :MOVE NUMBER OF DEVICES TO STACK FOR TYPING 
2841 030726 104405 TYPDS “TYPE THE AUMGER OF DEVICES 
2842 030730 104401 033767 TYPE  ,SPACE3 [TYPE 3 SPACE CHARACTERS 
2843 030734 013746 002420 MOV REGADR»-(SP)  :MOVE THE DEVICE REGISTER ADDRESS TO THE STACK 
2844 030740 104402 TYPOC :TYPE THE DEVICE REGISTER ADDRESS 
2845 030742 104401 033773 TYPE  ,SPACE6 :TYPE 6 SPACE CHARACTERS 
2846 030746 013746 002460 MOV VECADR,-(SP) | :MOVE THE DEVICE VECTOR ADDRESS TO THE STACK 
2847 030752 104403 TYPOS ‘TYPE THE DEVICE VECTOR ADDRESS 
2848 030754 003 000 .BYTE 3,0 : TYPE 3 CHARACTERS, LEADING ZEROS SUPPRESSED 
2849 030756 104401 034002 TYPE  ,SPACE7 YPE 7 SPACE CHARACTERS 
2850 030762 032737 000001 002720 BIT #B1T0,D0W ‘Ste WHICH W/B STATE FOR BOARDS 
3851 030770 1403 BEQ 10$ :60 PRINT W STATE IF 
852 030772 104401 034017 TYPE B : TYP 
2853 030776 000402 BR {1s 60 TO next CHECK 
2854 031000 104401 034021 10$: TYPE  .W :TYPE A 
2855 031004 104401 034002 11$: TYPE ‘SPACE? :TYPE 7 SPACE CHARACTERS 
2856 031010 004737 005630 JSR PC, PNTPRI :PRINT DEVICE PRIORITY 
2857 031014 104401 034002 TYPE  ,SPACE7 ‘TYPE 7 SPACE CHARACTERS 
2858 031020 032737 000002 002720 BIT #B1T1,00W :SEE WHICH 2/N STATE FOR BOARDS 
2859 031026 001003 E 12$ :GO PRINT N STATE IF 
2860 031030 104401 034032 TYPE TWO : TYP 
2861 031034 000402 BR 13$ 60 TO NEXT CHECK , : 
2862 031036 104401 034034 12$: TYPE .N YPE AN ' 
2863 031042 104401 034002 13$: TYPE ‘SPACE? “TYPE 7 SPACE CHARACTERS 
2864 0310466 032737 000004 002720 BIT #8112, 00 :SEE WHICH CABLE STATE igh BOARDS 
2865 031054 001403 BEG 14$ :GO PRINT NO CABLE IF NONE 
2866 031056 104401 034026 TYPE YES TYPE ‘Y 
2867 031 000402 BR i5$ :BRANCH TO CONTINUE 
2868 31064 104401 034023 14$: TYPE NO YPE 'NO' 
869 31070 104401 034047 15$: TYPE  <CRLF2 TYPE 2 <CRLF>'S 
870 031074 71 BR PROMPT :BRANCH TO PROMPT ANOTHER COMMAND 
871 031076 022737 000122 002666 1%: CMP #'R, ANSWER [RUN PROGRAM 
872 031104 901020 BNE 4$ ‘BRANCH IF NOT 
873 031106 005737 002420 TST PZGADR SEE IF REGADR HAS BEEN LOADED 
2874 031112 001003 BNE 3$ *BRANCH TO CHECK VECADR IF SO 
2875 031114 104401 033504 2$: TYPE  ,MUSTED ‘TYPE: ‘DEVICE ADDRESS AND/OR VECTOR TABLE NOT SET UP - MUS 
3876 031120 57 BR PROMPT [BRANCH BACK FOR PROMPT ESSA GE 
877 0311 5737 002460 3$: TST VECADR ?SEE IF VECADR HAS BEEN LOADED 
B78 031126 001772 BEQ 2$ ‘BRANCH BACK TO PRINT ERROR MESSAGE IF NOT 
879 031130 004737 003360 JSR PC .FIXTBL “FILL TABLE 
BBO 031134 012737 177777 002672 MOV #-1 | MANSIZE “MOVE -1 TO MANSIZE TO INDICATE WE HAVE MANUALLY SIZED 
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881 031142 ttle 010272 JMP START ; JUMP TO START 

at 931146 022737 000105 002666 4$: CMP #'E , ANSWER EDIT TABLE? 

2883 031154 001414 BEQ EDIT ;BRANCH TO EDIT IF SO 

2 031156 022737 000102 002666 CMP #'B, ANSWER sENTER BURST DATA LATE CALIBRATION? 

2885 031164 001235 BNE PROMPT BRANCH TO PROMPT IF COMMAND NOT RECOGNIZED 
2886 031166 005737 002420 TST REGADR ;SEE IF REGADR HAS BEEN LOADED 

2887 031172 001750 BEQ 2$ ;BRANCH TO ERROR MESSAGE IF NOT 

2 031174 005737 002460 TST VECADR SEE 1F VECADR HAS BEEN LOADED 

2889 031200 001745 BEQ 2$ ;BRANCH TO ERROR MESSAGE IF NOT 

2890 031202 000137 032326 JMP BOLCR ; JUMP TO BURST DATA LATE CALIBRATION ROUTINE 


CZDRLBO-DR11 GEN NPR INTFC 


TABLE EDIT ROUT 


3892 031 
289 O31 3 
2894 031216 
2895 bat 20 
2896 031224 
2897 0312 
2898 $31S78 
2899 031242 
2900 031246 
2901 031250 
2902 031256 
2903 031260 
2904 031266 
2905 031270 
2906 031276 
2907 031300 
2908 031304 
2909 031306 
2910 031310 
2911 031312 
2912 031316 
2913 031320 
2914 031324 
2915 031330 
2916 031334 
2917 031336 
$3i8 $3 2 
19 031346 
2920 031354 
2921 031360 
2922 031364 
2923 031366 
2924 031374 
2925 031376 
2926 031404 
2927 031406 
2928 031412 
2929 031416 
2930 031420 
2931 031426 
2932 031430 
2933 031432 
2934 031436 
2935 031440 
2936 031444 
2937 031446 
2938 031452 
$020 031454 
2941 031460 
soeg teed 
2943 0314 
4 031472 
945 031476 
6 031500 
2947 031502 


INE 


01 


o 
+ 
w 
Sane 
oor 
Mo 


-—-Oo—-— Oo — 
wR Rar 


3 


sssssesss 


_ 
4 
Ne 
oO 
= 


o-o— 
Wwono s 


762 
04 


s 


? 


SN“ fe 
oo 
ww 


S 


-—o 
—_ 
FS 
Our 
—~o 


— -—o 
So — 
F RG 
sorn 
occe 


000015 


000033 
000003 


030660 
033146 


000015 


171000 
177000 
000007 
033314 


002420 


000 
034012 
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EDIT 


002706 


002666 
002666 
002666 
1$: 
2$: 


3$: 
4$: 


002706 


002666 
002666 


5$: 
6$: 
002666 7$: 


8$: 


9$: 


10$: 


-SBTTL TABLE EDIT — 
TYPE ,NOBUT TY 


QTYBRD,-(SP) 
, SPACEC 
#2,R3 

eS LRGSTC 
PC, READ 


#ESC ANSWER 
PENTLC ANSWER 
PCARETN,ANSWER | 
ee 


1$ 

#20,R4 

1$ 
R4,QTYBRD 
,SDADRS 
REGADR,-(SP) 
, SPACEC 

#6,R 

#'? ,LRGSTC 

PC READ 


’ 


$ 

WESC, ANSWER 
EDIT 
#CNTLC,ANSWER 
7$ 


PROMPT 
, ADRERR 


4$ 
#CARETN, ANSWER 
10% 


4$ 
#171000,R4 
#177000 ,R4 
6$ 

#7,R4 

$ 

eADLCHR 


4% 

R4 ,REGADR 

o SVADRS 
VECADR,-(SP) 


3,0 
» SPACEC 


PE: ‘NUMBER 
;PUT QUANTITY OF 


OF BOARDS UNDER TEST: ° 
BOARDS ON se FOR PRINTING 


:60, yg Ge THE QUANTITY OF BOARDS 
EXPECT MAX ‘or 2 CHARACTER 
MOVE AS 


Cll ‘9° 


S 
TO THE LARGEST CHARACTER LOCATION 


3G0_ READ 2 CHARACTERS 


;SEE IF 
:BRANCH 


“NUMERIC WAS THE ONLY INPUT 


If NOT 
SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
BRANCH TO PROMPT JUMP IF * 


;SEE IF USER WANTS TO EXIT 
OMPT 


IF <CR> USE EXI 
TYPE: 


*C) 
JUMP IF EXIT REQUESTED 
NPUTED 
STING 


BRANCH BACK FOR NEW INPUT 

;CHECK FOR ZERO MODULES INPUT 

;BRANCH TO PRINT ERROR a cea IF SO 
;SEE IF BOARD NUMBER IS ILLEGAL 
:BRANCH TO PRINT ERROR nESSAGE IF SO 
;MOVE INPUTED NUMBER TO @ en: 


sTYPE: * STARTI 


RESS: 
:MOVE THE PRESENT ADDRESS TO THE STACK FOR PRINTING 


NG DEVICE ADD 


TPE. THE ADDRESS 


EXPECT Maxi 
:MOVE ASCII 


6 CHARACTERS 
* TO THE LARGEST CHARACTER LOCATION 


:GO READ 6 CHARACTERS 


;SEE IF NON-NUME 
;BRANCH IF NOT 


RIC CHARACTER INPUTED 


sSEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
BRANCH AROUND ESC PRINT AND + yhheneen PROMPT BRANCH IF SO 
;SEE IF USER WANTS TO EXIT (“C 

;BRANCH AROUND PROMPT JUMP IF “oT 
;JUMP TO PROMPT A NEW 


; TYPE: 


;BRANCH BACK FOR REINP 
SEE IF <CR> WAS ONLY CHARACTER INPUTED 


:1F <CR> USE EXI 


STING REG A 


;BRANCH BACK = INPUT NOT LEGAL 
:1S ANSWER BELOW 171000 


BRANCH TO PRINT 


ERROR MESSAGE IF IT IS 


S ANSWER ABOVE 177000 
‘BRANCH TO PRINT ERROR MESSAGE IF 


;TEST TO MAKE SURE A 


;BRANCH AROUND ERROR MESSAGE TYPE 


; TYPE: 
*SIGNIFI 


I 
"ADDRESS INPUTED HAS OTHER THAN 0 FOR LEAST’ 


CANT OCTAL DIGIT 
PUT 


BRANCH BACK FOR REIN 


di Ngee NEW # IN 


TABLE 
TYPE: ‘STARTING VECTOR ADDRESS: 


{MOVE PRESENT VE 


CTOR TO ge AL. PRINTING 


;PRINT_THE PRESENT VECTOR ADDRESS 


i. 3 ee 


RS, SUPPRESS LEADING ZEROS 


SEQ 0144 


NUMBER 
"ILLEGAL NUMBER (# OTHER THAN 1-16) OR CHARACTER INP 


Ww COMMAND 
"ADDRESS pth 1S NOT IN THE RANGE 171000 TO 17700 


A ‘O' IS PRESENT IN LOWEST OCTAL DIGIT 
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2948 031506 012703 000003 MOV #3,R3 sEXPECT ONLY 3 CHARACTERS 
2949 03151 eee 00272 JSR PC READ :GO READ 3 CHARACTER 
2950 0 1316 022703 00000 CMP #3.R3 :SEE IF NON-NUMERIC WAS THE ONLY INPUT 
2951 031522 001015 BNE 11 ‘BRANCH IF NOT 
2952 031524 022737 000033 002666 CMP #ESC, ANSWER °SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
2953 031532 007574 BEQ 4$ ‘BRANCH TO PREVIOUS PROMPT IF SO 
2954 031534 022737 000003 002666 CMP WCNTLC, ANSWER SEE IF USER WANTS TO EXIT (4C) 
2955 031542 901721 BEQ 5$ ‘BRANCH TO PROMPT JUMP IF SO 
2956 031544 022727 000015 002666 CMP WCARETN, ANSWER ;SEE IF <CR> WAS INPUTED 
2957 031552 001417 BEQ 15$ ‘BRANCH IF NO CHANGE WANTED 
2958 031554 000744 BR 10$ ‘BRANCH BACK = INPUT UAS ILLEGAL 
2959 031556 022704 000123 11$: CMP #123,R4 SEE IF ANSUER 1S BELOW 124 
2960 031562 100403 BMI 13$ sBRANCH AROUND ERROR MESSAGE | 
2961 031564 104401 033233 TYPE VECERR TYPE “VECTOR INPUTED IS WOT : THE RANGE OF 124 TO 777° 
2962 031570 000736 BR 10$ :BRANCH BACK FOR REINPUT 
2963 031572 032704 000003 13$: BIT #3,R4 “MAKE SURE LEAST SIGNIFICANT OCTAL DIGIT IS ‘O* OR ‘4° 
2964 031576 001403 BEQ 14$ ‘BRANCH OVER ERROR PRINTING IF NOT 
2965 031600 104401 033417 TYPE VCLCHR :TYPE: ‘VECTOR INPUTED SHOULD HAVE ZERO AS LEAST DIGIT’ 
2966 031604 0007 BR 10$ :BRANCH BACK FOR REINP 
2967 031606 010437 002460 14$: MOV R4,VECADR [INSTALL NEW VECTOR ADDRESS IN TABLE 
031612 104401 034613 15$: ‘TYPE DR1WOB ‘TYPE: 'DRi1-W OR B (W=0, B=1) CURRENT STATE = 
2969 031616 013737 001476 002720 MOV $DDW0, DDW ‘MOVE DEVICE DESCRIPTOR WORD TO DDW 
031624 012737 000001 002712 MOV #BITO.BITTST | :MOVE BIT STATE TO PRINT TO BITTST 
2971 031632 004737 005606 JSR PC ,PSTATE sPRINT CURRENT W/B STATE 
031636 104401 034012 TYPE  ,SPACEC YPE: 
2973 031642 012703 000001 MOV #1R3 sy INPUT 1 CHARACTER 
031646 004737 002722 JSR PC.READ :GO READ 1 CHARACTER 
2975 3165¢ 005703 TST R3 °SEE IF NON-NUMERIC WAS THE ONLY INPUT 
1654 001415 BEQ 16$ ‘BRANCH AROUND NON-NUMERIC TESTS IF SO 
2977 031656 022737 000033 002666 CMP #ESC, ANSWER °SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
2978 031664 001700 ; BEQ 10$ ‘BRANCH TO PREVIOUS PROMPT IF SO 
2979 031666 022737 000015 002666 CMP #CARETN, ANSWER :SEE IF USER WANTS NO CHANGE 
2980 031674 001417 BEQ 18$ ‘BRANCH IF SO 
2981 031676 022737 000003 002666 CMP #CNTLC.ANSWER :SEE IF USER WANTS TO EXIT (“C) 
2982 031704 001640 BEQ 5$ ‘BRANCH TO PROMPT JUMP IF SO 
2983 031706 000741 BR 15$ ‘BRANCH BACK = INPUT NOT LEGAL 
2984 031710 005704 & 168: Ts Rd [CHECK FOR LEGAL INPUT 
2985 031712 001403 BEQ 17$ :BRANCH IF OK 
2986 031714 022704 000001 CMP #1,R4 [CHECK FOR ILLEGAL INPUT 
2987 031720 001334 BNE 15$ ‘BRANCH BACK IF ILLEGAL STATE INPUTED 
2988 031722 042737 000001 001476 17%: BIC #8110, $DDW0 “CLEAR THE BIT TO BE ALTERED 
2989 031730 050437 001476 BIS R4, $DOWO [PUT USER INPUT INTO $DDuO 
2990 031734 104401 034551 18$: ‘TYPE DEVPRI ‘TYPE: "DEVICE PRIORITY PRESENT LEVEL = ' 
2991 031740 013737 001476 002720 MOV $D0W0, DOW “MOVE DEVICE DESCRIPTOR WORD TO DDW 
2992 031746 004737 005630 JSR PC, PNTPRI ;PRINT DEVICE PRIORITY 
399 031752 104401 934012 TYPE ,SPACEC : TYPE: 
994 031756 012703 (000001 MOV #1 ,R3 [ONLY INPUT 1 CHARACTER 
2995 031762 004737 002722 JSR PC.READ :GO READ 1 CHARACTER 
2996 031766 005703 TST R3 °SEE IF NON-NUMERIC WAS THE ONLY INPUT 
2997 031770 001415 BEQ 19% ‘BRANCH AROUND NON-NUMERIC TESTS I 
2998 031772 022737 000033 002666 CMP #ESC ANSWER SEE IF USER WANTS 19 GO BACK TO bReViOUS PROMPT 
999 032000 001704 BEQ ‘BRANCH iG PREVIOUS PROMPT IF SO 
032002 022737 000003 002666 CMP #CNTLC, ANSWER SEE IF USER WANTS 10 EXIT (*C) 
1 032010 001544 BEQ 26$ [BRANCH IF EXIT WANTED 
3002 032012 022737 000015 002666 CMP BCARETN, ANSWER :SEE IF <CR> INPUTED FOR NO CHANGE WANTED ; 
soz 032020 001413 BEQ 208 :BRANCH IF NO CHANGE WANTED ey 
032022 000744 BR 188 ‘BRANCH BACK = INPUT NOT LEGAL 
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TABLE EDIT ROUTINE 


SEQ 0146 





5 032024 006304 19$: ASL RG :PUT PRIORITY IN PROPER POSITION 
032026 006304 ASL RG ‘BY SHIFTING TO THE LEFT 5 PLACES 
3007 032030 006304 ASL RG 
3008 032032 006304 ASL R4 
3009 032034 006304 ASL RG 
3010 032036 042737 000340 001476 BIC #LEVEL7,$DDWO CLEAR OLD PRIORITY 
3011 032044 050437 001476 BIS R4, $D0WO :SET PRIORI ity INTQ DEVICE DESCRIPTOR WORD 
3012 032050 104401 034463 20$: * TYPE TORNCB ‘TYPE: ‘20 CLE BURST (2 CY=0, N CY=1) PRESENT STATE = 
3013 032054 013737 001476 002720 MOV $00W0, Dow ‘MOVE Device "pest TOR WORD TO DDW 
3014 032062 012737 000002 002712 MOV #BIT1.BITTST | :MOVE BIT STATE 5. PRINT TO BITTST 
3015 032070 004737 00560 JSR PC, PSTATE PRINT 2/N CYCLE STATE 
3016 032074 104401 034012 TYPE ,SPACEC : TYPE: 
3017 032100 012703 000001 MOV #1,R3 [ONLY ONE CHARACTER TO INPUT 
3018 032104 004737 002722 JSR PCREAD ‘READ 1 CHARACTER 
3019 032110 005703 TST R3 ;SEE IF NON-NUMERIC WAS THE ONLY og 
3020 032112 001415 BEQ 21$ ‘BRANCH AROUND NON-NUMERIC TESTS IF 
3021 032114 022737 000033 002666 CMP #ESC, ANSWER ‘SEE IF USER WANTS TO GO BACK TO bREVIoUS PROMPT 
3022 032122 001704 BEQ 18$ [BRANCH TO PREVIOUS PROMPT LE 0 
3023 032124 022737 000003 002666 CMP WCNTLC,ANSWER SEE IF USER WANTS TO EXIT (“C) 
3024 032132 001473 BEQ 26$ RANCH IF USER WANTS TO EXIT 
3025 032134 022737 000015 002666 CMP #CARETN,ANSWER :SEE IF USER WANTS NO CHANGE 
3026 032142 001414 BEQ 23$ :BRANCH IF USER WANTS NO CHANGE 
3027 032144 000741 BR 20$ :BRANCH BACK = USER INPUT NOT LEGAL 
3028 032146 005704 21$: TST RG “CHECK FOR LEGAL INPUT 
3029°032150 00140 BEQ 22% ‘BRANCH IF OK 
3030 032152 022704 000001 CMP #1,R4 : CHECK FOR ILLEGAL INPU 
3031 032156 001334 BNE 20$ ANCH BACK IF ILLEGAL STATE INPUTED 
3032 032160 304 22$: = ASL R4 MIF BIT OVER 1 PLACE 
3033 032162 042737 000002 001476 BIC #B1T1,$D0W0 ‘CLEAR OLD STATE 
032170 050437 001476 BIS R4, $DDWO [SET THE USERS INPUTED STATE TO $DDWO 

3035 032174 104401 034775 23$: TYPE ,DOCTS ‘TYPE: "DO CABLE TESTS (NO=0, YES=1) PRESENT STATE = ' 
3036 032200 013737 001476 002720 MOV $DDW0,DDW [MOVE DEVICE DESCRIPTOR WORD TO DDW 
3037 032206 012737 000004 002712 MOV #B1T2,BITTST :mOVE BIT STATE Ri: PRINT TO BITTST 
3038 032214 737 005606 JSR PC ,PSTATE PRINT CABLE STATE 
3039 032220 104401 034012 TYPE ,SPACEC YPE: 
3040 032224 012703 000001 MOV 1,R3 INPUT ONLY 1 CHARACTER 
3041 032230 737 002722 JSR PC READ :G0 INPUT 1 CHARACTER 
3042 032234 005703 ST R3 [SEE IF NON- NUMER ¢ WAS THE ONLY INPUT 
3043 032236 001415 BEQ 24$ “BRANCH A ROUND NON-NUMERIC TESTS IF NOT 
3044 032240 022737 000033 002666 CMP #ESC, ANSWER >SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
3045 032246 001700 BEQ 20$ ‘BRANCH TO PREVIOUS PROMPT IF SO 
3046 032250 022737 000003 002666 CMP #CNTLC,ANSWER ;:SEE IF USER WANTS TO EXIT (*C) 
3047 032256 001421 BEQ 26$ ‘BRANCH IF USER WANTS TO EXIT 
3048 032260 022737 000015 002666 CMP #CARETN, ANSWER ;:SEE IF USER WANTS NO CHANGE 
3049 032266 001415 BEQ 26$ “BRANCH IF USER WANTS NO CHANGE | 
3050 032270 000741 BR 23$ “BRANCH BACK - USER INPUT NOT LEGAL 
3051 032272 005704 24$: TST R4 :CHECK FOR LEGAL INPUT | 
3052 032274 001403 BEQ 258 *BRANCH IF OK 
3053 032276 022704 000001 . CMP #1,R4 SCHECK FOR ILLEGAL INPUT 
3054 032302 001334 BNE 23$ sBRANCH BACK IF ILLEGAL STATE INPUTED 
3055 032304 006304 25$: ASL R4 “SHIFT INPUTED BIT OVEP 2 PLACES 
3056 032306 006304 ASL R4 
3057 032310 042737 000004 001476 BIC #B1T2,$D0W0 ;CLEAR BIT TO BE CHANGED 
3058 032316 050437 001476 BIS R4, SDDWO *SET THE USERS INPUTED STATE TO $DDWO 
3059 032322 000137 030660 26$: JMP OMPT : JUMP TO GET NEW DEVICE NUMBER 






—————__—___—_-——__ 
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BURST DATA LATE CALIBRATION ROUTINE SEQ 0147 





3060 .SBTTL BURST DATA LATE CALIBRATION ROUTINE 
3061 FRRAAARAAAAAAAATAHEAAHAAAAAKAAAAAAAKAAAKEKAAHAARHATHEKeAAKAKKAeeAKet 
3062 3>>>>>>>BURST DATA LATE CALIBRATION ROUTINE “<«<<<<< 
Ser FRRARARAAAARERERAAEAEAARE RARER AATAAAAAEEAAAARERARARERAEAAAAAAARAAAEES 
3065 032326 012737 177777 002672 BDLCR: MOV #-1,MANSIZE MOVE -1 TO MANSIZE 
3066 032334 004737 003360 JSR PC,FIXTBL :60 FILL TABLE 
3067 032340 104401 033624 TYPE »BOLCRA ‘TYPE: + BURST DATA LATE CALIBRATION" 
3068 ; TYPE "ATTACH SCOPE PROBE. 
3069 ‘TO CALIBRATE NEXT BOARD, TYPE ANY CHARACTER’ 
3070 032344 012737 000001 002546 MOV #B1T0,DEVMSK :SET UP BIT a TO TEST SDEVM FOR DEVICES 
3071 032352 012700 002460 MOV #VECADR,RO [MOVE VECADR TO RO 
3072 032356 012701 002420 MOV #REGADR,R1 MOVE aoe 19 R1 
73 032 005037 001424 CLR SUNIT CLEAR $UN 
74 032 033737 002546 001470 2$: BIT DEVMSK ,SDEVM > CHECK TO ue IF DEVICE IS TO BE TESTED 

3075 032374 001015 BNE ‘BRANCH IF SO 
3076 032376 005737 002546 TST DEVMSK :SEE IF BIT 15 IS SET 
3077 032402 100004 BPL 4$ ‘BRANCH TO CONTINUE IF NOT SET 
3078 0324 104401 033113 TYPE pBCOOWE ;TYPE: "BURST Ca TOmAT Om COMPLETE* 
3079 032410 000137 030660 JMP PROMPT : JUMP TO PROMPT A NEW COMMAND 
3080 032414 022021 4$: CMP (RO)+, (R1)+ : INCREMENT THE TWO POINTERS 
3081 032416 006337 002546 ASL DEVMSK sUPDATE DEVICE MAP TEST MASK 
3082 032422 005237 001424 INC SUNIT : INCREMENT UNIT NUMBER 
3083 032426 000757 BR 2$ :GO TEST NEXT BIT OF DEVICE MASK 
3084 032430 011137 002524 5$: MOV (R1),CSR :PUT UUT CSR ADDRESS INTO DEVICE CSR LOCATION 
3085 032434 062737 000004 002524 ADD #4,CSR POINT CSR TO CSR ADDRESS 
3086 032442 011037 002530 MOV (RO) ,DRINV s;PUT UUT VECTOR AOQRESS INTO DEVICE DRINV 
soe! basce$ 104401 033612 TYPE DEVICE sTYPE: ‘DEVIC 

032452 013746 001424 MOV $UNIT,-(SP) ‘PUT UNIT NUMBER on STACK FOR TYPEOUT 
3089 032456 104405 TYPDS :GO TYPE THE UNIT NUMBER IN DECIMAL 
3090 032460 104401 034123 TYPE /UCAL sTYPE: ° UNDER CALIBRATION’ 
3091 032464 004737 004036 JSR PC,CLENUP ‘SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
3092 032470 005077 150030 6$: CLR acsr CLR CYCLE BIT 
3093 032474 012737 000077 002662 MGV #77, TIME ‘MOVE WAIT LOOP COUNTER TO TIME 
3094 032502 052777 000400 150014 BIS #CY,acsR :SET CYCLE BIT 
3095 032510 005337 002662 7$: DEC TIME ;SUBTRACT 1 FROM TIME UNTIL ZERO 

032514 001375 BNE 7$ :BRANCH BACK IF NOT ZERO YET 
3097 032516 105777 146622 TSTB asTKs 1S A CHARACTER WAITING INDICATING USER WANTS TO GO ON? 
3098 032522 100362 BPL 6$ ‘BRANCH IF NOT 
3099 032524 017737 150110 002662 MOV aTKB, TIME ‘WASTE THE CHARACTER, CLEARING THE CHARACTER FLAG 
3100 032532 aR 4$ :GO ON TO NEXT BOARD 

| 
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ASCII AND ASCIZ MESSAGES AND LOCATIONS SEQ 0148 
3101 ~-SBTTL ASCII AND ASCIZ MESSAGES AND LOCATIONS 
3102 032534 200 \¢3 124 STKIFL: .ASCIZ <CRLF>/STACK IS FULL = DATA MAY HAVE BEEN LOST/<CRLF><CRLF> 
3103 032607 136 131 200 ERCHDR: .ASCII /*Y/<CRLF>/SUMMATION OF ERRORS SINCE START OR LAST REPORT/ 
3104 032670 200 209 102 eASCIZ <CRLF><CRLF>/BOARD # PASS # _ERRTTL/<CRLF> 
3105 032725 136 131 200 NODATA: .ASCIZ /“Y/<CRLF>/NO ERROR TOTALS TO REPORT/<CRLF><CRLF> 
3106 032764 040 055 040 ETDEV: .ASCIZ / = TOTAL ERRORS THIS DEVICE = / 
3107 033023 111 114 114 BDNERR: .ASCIZ /ILLEGAL NUMBER (# OTHER THAN 1-16) OR CHARACTER INPUTED/ 
3108 033113 102 125 122 BCDONE: .ASCIZ /BURST CALIBRATION COMPLETE/ 
3109 033146 101 104 104 ADRERR: .ASCIZ /ADDRESS INPUTED IS NOT IN THE RANGE 171000 TO_177000/ 
3110 033233 126 105 103 VECERR: .ASCIZ /VECTOR INPUTED IS NOT IN THE RANGE OF 124 TO 777/ 
3111 033314 101 104 104 ADLCHR: .ASCIZ /ADDRESS INPUTED HAS OTHER THAN 0 FOR LEAST SIGNIFICANT OCTAL DIGIT/ 
3112 033417 126 105 103 VELCHR: .ASCIZ /VECTOR INPUTED SHOULD HAVE ZERO AS LEAST DIGIT/ 
3113 033476 074 105 123 ESCAPE: .ASCIZ /<ESC>/ 
3114 033504 200 104 105 MUSTED: .ASCII <CRLF>/DEVICE ADDRESS AND-OR VECTOR TABLE NOT SET UP - / 
3115 033565 115 125 123 eASCIZ = /MUST EDIT FIRST/ 
3116 033605 000 LETNCR: .ASCIZ / / 
3117 033607 103 000 CNTRLC: .ASCIZ /* 
3118 033612 105 126 DEVICE: .ASCIZ /DEVICE # / 
3119 033624 102 125 BOLCRM: .ASCII <CRLF>/BURST DATA LATE CALIBRATION/ 
3120 033660 101 124 eASCII <CRLF>/ATTACH SCOPE PROBE.../ 
3121 033706 124 117 eASCIZ <CRLF>/TO CALIBRATE NEXT BOARD, TYPE ANY CHARACTER/<CRLF> 
3122 033764 040 040 000 SPACES: .ASCIZ / / 
3123 033767 040 040 040 SPACES: .ASCIZ / / 
3124 033773 040 040 040 SPACE6: .ASCIZ / / 
3125 034002 040 040 040 SPACE7: .ASCIZ / / 
3126 034012 040 040 O72 SPACEC: .ASCIZ / : / 
3127 034017 102 000 ASCIZ /B/ 
31s8 tattt 127 000 s ASCIZ /W/ 
3129 034023 116 117 000 NO ASCIZ /NO/ 
3130 034026 131 105 123. YES ASCIZ /YES/ 
3131 034032 062 000 TWO ASCIZ /2/ 
3132 034034 116 000 N: ASCIZ /N/ 
3133 034036 102 117 101 BOARD: .ASCIZ /BOARD # / 
3134 034047 200 200 000 CRLF2 ASCIZ <CRLF><CRLF> 
3135 034052 200 101 114 BCFIN: .ASCIZ <CRLF>/ALL BOARDS CALIBRATED - BEGINNING TEST/<CRLF> 
3136 034123 040 125 116 UCAL: .ASCIZ / UNDER CALIBRATION/<CRLF> 
3137 034147 200 116 125 NOBUT: .ASCIZ <CRLF>/NUMBER OF BOARDS UNDER TEST: / 
3138 034206 200 200 104 BRVWPC: .ASCII <CRLF><CRLF>/DIAGNOSTIC HAS DETERMINED THE FOLLOWING ABOUT THE/<CRLF> 
3139 034272 104 122 061 eASCII = /DR11-W(S) IT HAS FOUND. USER *MUST* DETERMINE ACCURACY/<CRLF><CRLF> 
3140 034363 040 040 040 -ASCIZ / _BOARD#  REGADR VECADR W-B P-LEV 2-N CY CABLE/<CRLF> 
3141 034463 200 062 040 TORNCB: .ASCIZ <CRLF>/2 OR N CYCLE BURST (2 CY=0, N CY=1) PRESENT STATE = / 
3142 034551 200 104 105 DEVPRI: .ASCIZ <CRLF>/DEVICE PRIORITY PRESENT LEVEL = / 
3143 034615 200 104 122 DR1IWOB: .ASCIZ <CRLF>/DR11-W OR B (W=0, B=1) CURRENT STATE = / 
3144 034664 200 123 124 SVADRS: .ASCIZ <CRLF>/STARTING VECTOR ADDRESS: / 
3145 034720 200 123 124 SDADRS: .ASCIZ <CRLF>/STARTING DEVICE ADDRESS: / 
3146 034753 040 124 105 TSTCOM: .ASCIZ / TESTING COMPLETE/ 
3147 034775 200 104 117 DOCTS: .ASCIZ <CRLF>/DO CABLE TESTS (NO=0, YES=1) PRESENT STATE = / 
3148 035054 200 200 043 HEADER: .ASCII <CRLF><CRLF>/# OF START 2-N CABLE / 
3149 035150 200 102 117 sASCIZ <CRLF>/BOARDS REGADR  VECADR W-B P-LEV CYCLE TESTS/<CRLF> 
$139 035245 200 200 115 MBDIAL: .ASCIZ <CRLF><CRLF>/MULTIPLE BOARD DIALOGUE/<CRLF> 
151 035300 200 105 116 ECELR: .ASCIZ <CRLE>/ENTER COMMAND (CEJDIT, CLJIST, CBJURST CALIBRATION, CRJUN): / 
3152 035377 124 110 105 ORE: .ASCI] /TWERE ARE STILL MORE ERRORS, BUT WILL NOT BE PRINTED./<CRLF> 
3153 tees 105 122 122 eASCIZ /ERRORS WILL STILL BE COUNTED AND PRINTED AT THE EOP./<CRLF> 
3154 035553 200 116 117 NODVPR: .ASCII <CRLF>/NO DEVICES RECOGNIZED - DIAGNOSTIC CANNOT BE RUN/<CRLF> 
3155 035635 122 105 123 eASCIZ /RESTART AT 204 IF A DEVICE IS PRESENT/<CRLF> 
3156 035704 200 050 136 M1: eASCI] <CRLF>/(*X) INHIBITS EOP'S, (*Y) FOR ERROR SUMMARY/<CRLF > 
3157 035761 125 116 111 -ASCIZ /UNIBUS HANG? RESTART AT ADDRESS / 
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ASCII AND ASCIZ MESSAGES AND LOCATIONS SEQ 0149 | 
3158 036023 200 200 103 MIA: eASCIZ <CRLF><CRLF>/CZDRLBO DR11 GEN NPR INTFC LOGIC TEST/<CRLF> | 
3159 036074 104 105 126 BARADR: .ASCIZ /DEVICE ADDRESS - / ' 
3160 036116 054 040 124 TSNUMB: .ASCIZ /, TEST NUMBER - / | 
qi) 036137 054 040 120 PASNUM: ty /, PASS NUMBER - / 

3163 036160 000000 SAV WORD 

3164 036162 -BLKW 400 

3165 037162 000000 BUFF: . WORD | 
3166 037164 037164 XINBUF: . 

3167 037166 BLKW 400 

3168 040166 040166 XCHKBU: 

3169 040170 -BLKW 400 

3170 041170 041172 CAPNTR: .WORD CAPSTK LOCATION TO HOLD POINTER FOR CAPTURE STACK 

3171 041172 CAPSTK: .BLKW 600. LOCATIONS TO STORE UP TO 150 DECIMAL PASSES AND THEIR ERROR 
3172 043452 000000 ENDSTK: .WORD 0 FLAG SIGNALING END OF THE STACK 
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ERROR MESSAGES SEQ 0150 


3173 -SBTTL ERROR MESSAGES 
3174 043454 124 105 123 EMI: eASCIZ = /TEST SEQUENCING ERROR/ 

3175 043502 103 101 116 EM2: eASCIZ /CANNOT ACCESS DR11 REGISTER/ 

3176 043536 104 122 061 EMS: eASCIZ /OR11-B OR W MODE INCORRECT (0=B, 1=W)/ 

3177 043604 111 116 111 EMG: -ASCIZ /INIT FAILED TO CLEAR WCR/ 

3178 043635 111 116 111 EMS: eASCIZ /INIT FAILED TO CLEAR BAR/ 

3179 043666 111 116 111 EM6: eASCIZ /INIT FAILED TO CLEAR BDR/ 

3180 043717 111 116 111 EM7: eASCIZ /INIT FAILED TO CLEAR ALL CSR R-W BITS/ 

3181 043765 122 105 123. EM10: .ASCIZ /RESET FAILED TO CLEAR WCR/ 
3182 044017 101 124 124 EM11: ASCIZ /ATTEMPT TO SET ALL WCR BITS FAILED/ 

3183 044062 122 105 123. EM12: ASCIZ /RESET FAILED TO CLEAR BAR/ 

3184 044114 101 124 124 EM13: ASCIZ /ATTEMPT TO SET ALL BAR BITS TO 1 FAILED/ 

3185 044164 103 123 122 EM14: ASCIZ /CSR BIT TEST FAILED (FATAL = DIAGNOSTIC NOT CONTINUED)/ 
3186 044253 103 123 122 EM15: ASCIZ /CSR BIT TEST FAILED/ 

3187 044277 105 111 122 EM16: ASCIZ /EIR BIT TEST FAILED/ 

3188 044523 122 105 101 EMI7: ASCIZ /READY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN CSR/ 
3189 044412 101 124 124 EM20: ASCIZ /ATTN AND ERROR FAILED TO SET PROPERLY/ 
3190 044460 101 124 124 EM21: ASCIZ /ATTN AND ERROR FAILED TO CLEAR PROPERLY/ 

3191 044530 105 122 122 EM22: ASCIZ /ERROR BIT SHOULD HAVE BEEN CLEAR/ 

3192 044571 102 111 124 EM23: ASCIZ /BIT PATTERN NOT LOADED PROPERLY IN WCR/ 

3193 044640 122 105 101 EM24: ASCIZ /READY OF CSR WAS NOT SET/ 
3194 044671 102 111 124 EM25: ASCIZ /BIT 0 OF THE BAR WAS SET/ 
3195 044722 102 111 124 EM26: ASCIZ /BIT PATTERN TEST FAILED IN BAR/ 
3196 044761 127 103 122 EM27: ASCIZ /WCR DATA PATTERN NOT CORRECT/ 
3197 045016 106 125 116 EM30: ASCIZ /FUNCTION BIT(S) ARE NOT CLEAR/ 
3198 045054 104 123 124 EM31: ASCIZ /ODSTAT A, B OR C ARE NOT AS EXPECTED/ 
3199 045120 102 104 122 EM32: ASCIZ /BOR IS NOT CLEAR/ 
3200 045141 101 114 114 EM33: ASCIZ /ALL BOR BITS ARE NOT SET/ 
3201 045172 102 104 122 EM34: ASCIZ /BOR FAILS TO HOLD A BIT PATTERN/ 
3202 045232 102 104 122 EM35: ASCIZ /BOR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN/ 
3203 045313 102 104 122 EM36: ASCIZ /BDR PATTERN NOT CORRECT/ 
3204 045343 122 105 101 EM37: ASCIZ /READY IS NOT THE ONLY BIT SET/ 
3205 045401 122 105 101 EM40: ASCIZ /READY SHOULD NOT BE SET/ 
3206 045431 122 105 101 EM41: ASCIZ /READY WAS CLEARED BUT NEVER SET AGAIN/ 
3207 045477 122 105 101 EM42: ASC1Z /READY CANNOT BE SET BY INIT/ 
3208 045533 104 122 061 EM43: ASCIZ /DR11 FAILED TO INTERRUPT/ 
3209 045564 104 122 061 EM44: ASCIZ /DR11_ INTERRUPTED, BUT IT SHOULDN'T HAVE/ 
3210 045634 105 122 122 EM45: ASCIZ /ERROR BIT SHOULD NOT BE CLEAR/ 
3211 045672 106 125 116 EM46: ASCIZ /FUNCTION BITS DIDN'T INCREMENT IN MAINT MODE/ 
3212 045747 103 123 122 EM47: ASCIZ /CSR IS WRONG/ 
3213 045764 124 122 101 EMS5O: ASCIZ /TRANSFERS SHOULD HAVE BEEN INHIBITED/ 

3214 046031 104 122 061 EM51: ASCIZ /OR11 SHOULD NOT HAVE INTERRUPTED A SECOND TIME/ 
3215 046110 105 130 120 EMS2: ASCIZ /EXPECTED INTERRUPT DID NOT OCCUR/ 

3216 046151 127 103 122 €&M53: ASCIZ /WCR NOT EQUAL TO ZERO/ 

3217 046177 102 101 122 EMS4: ASCIZ /BAR IS WRONG/ 

3218 046214 102 101 104 €M55: ASCIZ /BAD DATA IN BDR/ 

3219 046234 104 101 124 EMS6: ASCIZ /DATA NOT TRANSFERED CORRECTLY/ 

3220 046272 102 125 106 EMS7: ASCIZ /BUFFER DATA NOT CORRECT/ 

3221 046322 124 117 117 EM60: .ASCIZ /TOO MANY WORDS WERE TRANSFERED/ 

3222 046361 125 116 105 EM61: ASCIZ /UNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW/ 
3223 046444 103 123 122 EM62: ASCIZ /CSR AND-OR WCR AND-OR BAR ARE iNCORECT/ 

$55¢ 046513 104 122 061 &EM63: ASCIZ /OR11 INTERRUPTED AT WRONG LEVEL/ 

225 046553 062 055 116 EM65: ASCIZ /2-N CYCLE BURST SWITCH IN WRONG POSITION/ 
3559 046624 115 125 114 EM66: ASCIZ /MULTICYCLE BIT IN THE EIR IS WRONG/ 

227 046667 103 123 122 EM202: .ASCIZ /CSR PATTERN NOT CORRECT/ 

3228 046717 102 104 122 EM211: .ASCIZ /BDR AND-OR WCR AND-OR BAR ARE INCORECT/ 


' 
cc 
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DATA HEADERS SEQ 0151 
3229 ~SBTTL DATA HEADERS 
3230 046766 105 130 120 DH1: eASCII = /EXPCTD RECVD/<CRLF> | 
3231 047004 124 105 123 eASCIZ /TEST # TEST #/ 
$536 047023 124 105 123 DH: -ASCIZ =/TEST # ERR PC ABRTPC REGISTER/ | 
3233 047064 124 105 123 DHS: ~ASCIZ /TEST # ERR PC EXPMOD ACTMOD CSRADR/ 

3234 047133 124 105 123 DH4: eASCIZ /TEST # ERR PC WCRADR WCRCONTENTS/ 
3235 047177 124 105 123 DHS: -ASCIZ = /TEST # ERR PC BARADR BAREXP_ BARRCV/ 
3236 047246 124 105 123 DH6: ~ASCIZ /TEST # ERR PC BDRADR BDRCONTENTS/ 
3237 047312 124 105 123 DH?: -ASCIZ /TEST # ERR PC CSRADR CSREXP CSRCONTENTS/ 
3238 047366 040 040 040 DHI4: .ASCII / UAE ge 
3239 047415 124 105 123 -ASCIZ /TEST # ERR PC TESTED CSRADR CSREXP CSRCONTENTS/ 
3240 047501 4 040 040 C416: .ASCII / BIT(S)/<CRLF> 
3241 047530 124 105 123 -ASCIZ /TEST # ERR PC TESTED EIRAOR EIREXP  EIRCONTENTS/ 
3242 047614 124 105 123. DH17: .ASCIZ /TEST # ERR PC CSRADR CSREXP CSRCONTENTS/ 
3243 047670 124 105 123 DH23: .ASCIZ /TEST # ERR PC WCRADR WCREXP WCRCONTENTS/ 
3244 047744 124 105 123 DH26: .ASCIZ /TEST # ERR PC BARADR BAREXP BARCONTENTS/ 
3245 050020 124 105 123 DH34: .ASCIZ /TEST # ERR PC BDRADR BDREXP BDRCONTENTS/ 
3246 050074 124 105 123 DH43: .ASCIZ /TEST # ERR PC CSRADR CSRCONTENTS/ 
3247 050140 124 105 123 DHSO: .ASCIZ /TEST # ERR PC WCRADR WCREXP WCRRCV BARADR BAREXP BARRCV/ 
3248 050237 124 105 123 DH56: .ASCIZ /TEST # ERR PC NPRIAD NPRIEX NPRIRC CSRADR/ 
3249 050316 040 040 040 DH57: .ASCII CHECK CHECK INPUT INPUT/<CRLF> 
3250 050374 124 105 123 -ASCIZ /TEST # ERR PC BUFADR BUFDAT BUFADR BUFDAT CSRADR/ 
3251 0504 040 040 040 DH60: .ASCII DIDNOT/<CRLF> 
3252 050512 124 105 123 eASCIZ /TEST # ERR PC EXPECT ADRESS CSRADR/ 
3253 050561 124 105 123 DH61: .ASCIZ /TEST # ERR PC WCRADR OLDPC TRAP ADR/ 
3254 05063 124 105 123 DH62: .ASCII /TEST # ERR PC WCRADR WCREXP WCRRCV CSREXP / 
3255 050712 103 123 122 eASCIZ /CSRRCV BAREXF BARRCV/ 
256 050741 124 105 123 DH63: .ASCIZ /TEST # ERR PC EXPLVL RCVLVL CSRADR/ 
257 051010 124 105 123. DH64: ASCIZ /TEST # ERR PC EXPLVL CSRADR/ 
051047 124 105 123 DH65: ASCIZ /TEST # ERR PC CSRADR EIREXP EIRRCV/ 
3259 051116 124 105 123 DH66: ASCIZ /TEST # ERR PC PATERN CSRADR CSRRCV/ 
051165 124 105 123. DH202: .ASCIZ /TEST # ERR PC CSRADR PATLDD CSREXP CSRRCV/ 
3261 051244 124 105 123 DH203: .ASCIZ /TEST # ERR PC CSRADR PATERN CSREXP_ CSRCONTENTS/ 
3262 051330 124 105 123 DH207: .ASCIZ /TEST # ERR PC PATERN CSRADR  CSRCONTENTS/ 
3263 0514 124 105 123 DH210: .ASCIZ /TEST # ERR PC WCRADR WCRCONTENTS/ 
$ses 051450 124 105 123° DH211: ty /TEST # ERR PC WCRADR WCREXP WCRRCV BDREXP BDRRCV BAREXP BARRCV/ 
Vv 
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DATA TABLES SEQ 0152 
3266 -SBTTL DATA beat 
3267 051560 001362 001414 000000 OT: WORD $TMP1,STESTN,O 
3268 051566 001414 001316 002674 re “WORD STESTN, SERRPC, OLDPC1 ,DREG,O 
3269 051600 001414 oleic 001362 DTS3: -WORD STESTN,SERRPC, hing | ,BORW,CSR,0 
3270 051614 001414 001316 002520 oDT4: -WORD STESTN,SERRPC,WCR,RWCR, 
3271 051626 001414 001316 002522 DTS: “WORD  STESTN, SERRPC BAR, EBAR , RAR, 0 
3272 051642 001414 001316 002526 DT6: “WORD  STESTN, SERRPC,BOR,R 0 
3273 051654 001414 001316 002524 DT7: WORD S$TESTN,SERRPC,CSR,ECSR,RCSR,0 
3274 051670 001414 001316 002540 D114: .WORD STESTN,SERRPC,BUT,CSR,ECSR,RCSR,O 
3275 051706 001414 001316 002540 D116: .WORD STESTN,SERRPC,BUT,CSR,EEIR,REIR,O 
3276 051724 001414 001316 002524 DT17: -WORD $STESTN.SERRPC.CSR,ECSR,RCSR,O 
3277 051740 001414 001316 002520 CT23: .WORD STESTN,SERRPC,WCR,EWCR,RWCR, :0 
3278 051754 001414 001316 002522 DI26: .WORD STESTN,SERRPC,BAR,EBAR,RBAR, 
3279 051770 001414 001316 002526 DT34: WORD STESTN,SERRPC, sf EBDR,RBDR,0 
3280 05 001414 001316 002524 D143: .WORD STESTN,SERRPC,CSR,RCSR,O 
3281 052016 001414 001316 002520 DT50:  -WORD  STESTN,SERRPC,WCR,EWCR,RWCR, ee: wy RBAR ,0 
3282 052 001414 001316 002610 DT56:  :WORD $TESTN,SERRPC,ANPR1,ENPR1 ,NPR1 
3283 052056 001414 001316 001370 D157:  .WORD STESIN, SSERRPC, STMPS ,STMPZ, “STHPS, STHP3, CSR,0 
3284 052 001414 001316 001364 DT60: WORD $TESTN,SERRPC,STMP2,STMP3,CSR, 
3285 052112 001414 001316 002520 D161: .WORD STESTN, SERRPC, WCR,OLDPC2,BDVECT,0 
3286 052126 001414 001316 002520 D162: .WORD STESTN,SERRPC,WCR,EWCR, RWCR,ECSR,RCSR,EBAR,RBAR 0 
3287 052152 001414 001316 002554 DT63:  .WORD $TESTN,SERRPC,ORLEV,LEVEL,CSR,0 
3288 052166 001414 001316 001362 D164: .WORD STESTN,SERRPC,STMP1,C 
3289 052200 001414 001316 002524 D165: .WORD STESTN,SERRPC,CSR, ein. REIR,O 
290 052214 001414 001316 092606 DT66: WORD $TESTN,SERRPC,ENPRI,CSR, RCSR,O 
3291 052230 001414 001316 Ov 524 DT202: .WORD $TESTN,SERRPC,CSR,BUT,ECSR, RCSR,0 
3292 052246 001414 001316 002524 DT203: :WORD $TESTN,SERRPC,CSR,STMPO,ECSR, RCSR,0 
3293 052264 001414 001316 001362 DI207: -:WORD $TESTN.SERRPC,STMP1,CSR RCSR,O 
9% 052300 001414 001316 002520 DT210: :WORD $TESTN,SERRPC,WCR,RWCR 
3295 052312 001414 001316 


002520 DT211: .WORD $TESTN,SERRPC,WCR,EWCR, “RWCR,EBDR,RBDR,EBAR ,RBAR,O 
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BUS HANG ROUTINE SEQ 0153 
3296 -SBTTL BUS HANG ROUTINE 
3297 052336 104401 036074 UBHANG: TYPE -BARADR sTYPE: ‘DEVICE ADDRESS - 
3298 O2Sere 013746 002520 MOV WCR,-(SP) ;PUT DEVICE otk ON STACK 
3299 052346 104402 TYPOC :GO TYPE IT_IN Tu 
3300 052350 104401 036116 TYPE TSNUMB ;TYPE: °, TEST NUMBER 
3301 052354 013746 001414 MOV $TESTN, (SP) ;PUT TEST NUMBER oe STACK 
San8 052360 104403 TYPOS :GO TYPE IT IN OCT 
3303 052362 002 000 BYTE 2,0 sTYPE 2 DIGITS, LEADING ZEROS SUPRESED 
3304 052364 104401 036137 TYPE PASNUM TYPE: *, PASS 
3305 052370 013746 001420 MOV $PASS#2,-(SP) :MOVE OVERFLOW NUMBER 10 THE STACK 
3306 052374 013746 001416 MOV SPASS,-(SP) ;PUT PASS NUMBER ON STACK 
3307 052400 104406 TYPDE :G0 TYPE IT im EXTENDED DECIMAL 
3308 052402 104401 001405 TYPE - SCRLF ;TYPE A <CRLF> 
3309 052406 000000 HALT ;WHOA - YOU GOTTA SERIOUSA PROBLEMA, BUDDY! 
3310 052410 000137 010266 JMP START1 JUMP TO RESTART PROGRAM 
3311 052414 000000 NOCARE: .WORD 0 ; LOCATION FOR USE WHENEVER CYCLE BIT OF CSR IS USED. THIS 
3312 SHOULD *ALWAYS* BE THE LAST WORD LOCATION IN THIS DIAGNOSTIC 


3313 000001 -END 


_—---- YF 
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SEQ 0154 
ABASE = 172410 AVECTI= 000300 CARETN= 000015 DATCHK 003716 d11 051560 
ACDW1 = 000000 AVECT2= 000000 CAT = 157777 DATCH1 003736 D114 051670 
ACOW2 = 000000 B 034017 CATCH 005536 DATCH2 004014 DT16 051706 
= 000000 BAR 002522 CBITO = 177776 DATOCK 004106 D117 051724 
ADDR 002650 BARADR 036074 CBIT1 = 177775 DATOC1 O06 166 DT2 051566 
AD = 000000 BCDONE 033113 CBIT10= 175777 DATOC2 004170 DT202 052230 
ADDW1 = 000000 BCFIN 034052 CBIT11= 173777 dBc = =_—« 003000 DT203 052246 
ADDW10= 000000 BOFAIL 503670 CBITI2= 167777 DDISP = 177570 DT207 052264 
ADDW11= 000000 BOLCR 032326 CBIT13= 157777 DDW 002720 DT210 052300 
ADDW12= 000000 BDLCRM 033624 CB1T14= 137777 DEVADS 004344 DT211 052312 
ADDW135= 000000 BDONERR 033023 CB1T15= 077777 DEVICE 033612 D123 051740 
ADDW14= 000000 BOR 002526 CBIT2 = 177773 DEVMSK 002546 D126 051754 
ADDW15= 000000 BOVECT 002544 CBIT3 = 177767 DEVPRI 034551 DT3 051600 
ADDW2 = 000000 BEGIN 010466 CBIT4 = 177757 DH1 046766 D134 051770 
ADDWS = 000000 BEGIN 011006 CBITS = 177737 DH14 047366 DT4 051614 
AD = 000000 BITTST 002712 CBIT6 = 177677 DH16 047501 D143 052004 
ADDWS = 000000 BITO = 000001 CBIT? = 177577 DH17 047614 DT5 051626 
ADDW6 = 000000 B1TOO = 000001 CBIT8 = 177377 He 047023 D150 052016 
ADDW7 = 000000 B1T01 = 000002 CBIT9_= 176777 DH202 51165 D156 052040 
ADDW8 = 000000 BITO2 = 000004 €B1513= 057777 DH203 = 051244 D157 052056 
ADDW9 = 000000 BITO3 = 010 ccy = 177377 DH207 =: 0051330 DT6 051642 
ADEVCT= 000000 BIT04 = 000020 CDAB = 171777 DH210 }=051404 D160 052076 
ADEVM = 090000 BITOS = 000040 CDAC = 172777 DH211 = 051450 D161 052112 
ADLCHR 033314 BIT06 = 000100 coBC = 174777 DH23 047670 D162 052126 
ADRERR 033146 BITO7 = 000200 CDSA = 173777 DH26 047744 D163 052152 
AENV. = 000000 B1T08 = 000400 COSB = 175777 DH3 047064 D164 052166 
AENVA = 000000 BITO9 = 001000 COSC = 176777 DH34 050020 D165 052200 
AFATAL= ia tie BIT! = 000002 COST = 170777 DH4 047133 D166 052214 
1s BIT10 = 002000 CEIR = 077777 DH43 050074 DT 051654 
AMADR2= 000000 BIT11 = 004000 CER = 077777 DH5 047177 EBAR 002602 
AMADR3= 000000 BIT12 = 010000 CFNC = 177761 DH50 050140 EBOR 002600 
AMADR4= 000000 B1T13 = 020000 CF1 == (177775 DH56 050237 ECELR 035300 
AMAMS1= 000000 BIT14 = 040000 CF2 9 = 177773 DHS7 050316 SR 002574 
AMAMS2= 000000 B1T15 = 100000 CF3 = 177767 DH6 047246 EDIT 031206 
AMAMS3= 000000 BIT2 = 000004 = 177776 DH60 050463 EEIR 002576 
= 000000 BITS = 000010 CHARCT 027423 DH61 050561 = 100000 
AMSGAD= 000000 BIT4 = 000020 CHKBFF 003520 DH62 050632 EMTVEC= 000030 
AMSGLG= 000000 BITS = CHKBUF 002622 DH63 050741 043454 
AMSGTY= 000000 B1T6 = 000100 CHKCAB 004060 DH64 051010 EM10 043765 
AMTYP1= 000000 BIT? = 000200 CHK4DR 005104 DH65 051047 EM11 044017 
AMTYP2= 000000 BITS = CIE = 177677 DH66 051116 EM12 044062 
AMTYP3= 000000 BIT9 = 001000 CKSWR = 104410 DH7 047312 Em13 044114 
AMTYP4= 000000 BOARD 034 CLENUP 004036 DIOMEM 002616 EM14 044164 
ANPR1 002610 BORW 002612 CMA == 167777 DISPLA 001342 EM15 044253 
ANSWER 002666 BPINIT 004374 CNTLC = 000003 DISPRE 000174 EM16 044277 
APASS = 000000 BPT = 0000 CNTRLC 033607 DOCTS 034775 EM17 044323 
10R= 000000 BPTINT 004436 CNX = 157777 DREG 002552 a 043502 
APTCSU= 090040 BPTVCT 0000 R = 000015 DRGET 004452 EM20 044412 
APTENVs 1 BPTVEC= 00001 CRLF = 000200 DRINV 002530 EM202 046667 
APTSIZ= 200 BRVWPC 034206 CRLF 034047 DRLEV 002554 044460 
000100 BRWAIT 002630 CRY = 177577 DRVS 002532 EM211 046717 
ASIZE 005274 BUF F 037162 CSR Oe 326 DRIWOB 034615 E 044530 
A = 000000 BUFLEN 002624 CxXx6 0 = «177757 DSA = 004000 EM23 044571 
= 020000 BUSERR= 000004 Cx? = -:177737 DSB = = _ 002000 EM24 044640 
ATESTN= 000000 BUT 002540 CY = 000400 dsc §=— =_: 001000 EMS 044671 
AUNIT = 000000 CAPNTR 041170 DAB == 006000 DST = 007000 EM26 044722 
AUSWR = 000000 CAPSTK 041172 DAC == _ 005000 DSWR = 177570 EM? 044761 
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LE SEQ 0155 
ERS 043536 Fi = 000002 NXTTST 002556 STACK = 001300 Lb a 013750 
EM30 045016 F2 = 000004 Ne = 000400 STAGIN 000210 TS$T1 014106 
EM31 045054 F3 = 000010 OFL 002704 START 010272 TST14 014244 
EM32 045120 GO = 000001 OLDPC1 002674 START Ba5ege TST15 014406 
EM33 045141 GOAGIN 023516 OLDPC2 002700 STKIFL 032534 TST1 014612 
EM34 045172 GTSWR = 104407 OLDPS1 002676 STKLMT= 177774 TST1 015022 
EM35 eit HAKTPM 7042 OLDPS2 002702 SVADRS 034664 TST 0:°414 
EM36 04531 HEADER 035054 PASCNT 002560 W 001340 TST20 015372 
EM37 045343 = 000011 PASNUM 036137 SWREG 000176 TST21 015750 
EM4 043604 IE = 000100 PATRNS 006250 SwO == 000001 TST22 016236 
EM4O 045401 INBUF_ 002620 PIRQ = 177772 0 = 000001 TST23 016506 
EM41 045431 INBUF1 002660 PIRQVE= 000240 $w01 = 000002 TST24 017216 
EM42 045477 INOOUT 920340 PNTPRI 005630 SwO2 = 000004 TST25 017472 
EM43 045535 INTA 003546 PROMPT 030660 swO3 = 000010 TST26 = 017734 
EMGG 045564 1OTVEC= 000020 PRO = 000000 $w04 = 000020 TST27 020164 
EM45 045634 KDPAR2= 172364 PRi = 000040 SwOS = 000040 TST3 011516 
EM46 045672 KDPDR2= 172324 PR2 = 000100 $w06 = 000100 TST30 020354 
EM47 045747 KIPAR2= 1723 PRS = 000140 $wO7 = 000200 TST31 020614 
EMS 043635 KIPDR2= 172304 PR4 = 000200 $wO8 = 000400 TST32 020716 
EMSO 045764 LENCHK 0026 PRS = 000240 $wO9 = 001000 TST33 =. 021250 
EMS! 046031 LETNCR 033605 PR6 = 000300 Sw1_ = = 000002 TST34 021526 
EMS2 046110 LEVEL 002542 PR7 == 000340 $swi0 = 002000 TST35 022062 
EM53 046151 LEVELS 005264 = 177776 SWwi1 = 004000 TST36 © 022332 
EMS4 6177 LEVEL3= 000140 PSTATE 005606 Swi2 = 010000 TST37 ©0226 20 
EMSS 046214 LEVEL4= 00020 PSW == 177776 SwW13 = 020000 TST4 012030 
EMS6 234 LEVELS= 000240 PTCAPT 003170 SW14 = 040000 TST40 = 023074 
EMS7 046272 LEVEL6= 000300 PWRVEC= 000024 $wi5 = 100000 TST5 012572 
E LEVEL7= 000340 QTYBRD tre SW = 000004 TST 012740 
E 046322 = 000012 RA = 420 SW = 000010 TST 013254 
EM61 046361 LODBUF 003472 RBAR 002570 sw4 = = 000020 TwO 4032 
E 4 LOOP 002664 RBDR 002566 SwW5 = = 000040 TYPCNF 004630 
EM63 046513 LRGSTC 002706 RCSR 002562 Sw6 0S = 000100 TYPDE = 104406 
EM6S 046553 MA = 010000 RDCHR = 104411 SW? = = 000200 TYPDS = 104405 
EM66 046624 MAICLR 006266 RDDEC = 104414 Sw8 = = 000400 TYPE = 104401 
EN? 043717 MAISET 007266 RDLIN = 104412 Sw9 = = 001000 TYPOC = 104402 
023074 MANSIZ 002672 RDOCT = 104415 TABINX 002550 TYPON = 104404 
ENDSTK 043452 MBD 030644 RDYCHK 002634 TBITVE= 000014 TYPOS = 104403 
ENPR1 002606 MBDIAL 035245 READ 002722 TESLR 027424 UBHANG 052336 
EOPLOC 002710 MEMGMT 002714 REGADR 002420 TIME 002662 UCAL 034123 
EOPRSM 027352 MEPITM 030240 REINIT 011206 TKB 002640 VA = 002460 
ER = 100000 MESSAG 002652 REIR 002564 & 2636 VCLCHR 033417 
ERCAPT 003126 MAPS = 000252 RESVEC= 000010 TKVEC = 000060 VCTADS 005502 
ERCHDR 032607 MARO = 177572 RSTRT 023536 = 000006 VECADR 002460 
ERRCHK 004254 MAVECT= 000250 RWCR 002572 TORNCB 034463 VECERR 03323 
ERRCNT 002716 MSG 002646 RY = 000200 TOVECT= 000004 Wd 034021 
ERROR = 104000 MUSTED 033504 R6 =%000006 02644 WCLEN 002632 
ERRVEC= 000004 m1 035704 R7 =%0° 9007 P 2642 WCR 002520 
ER200 002276 MIA tres SCOPE = Boggs TPVEC = 000064 XCHKBU 040166 
Esc = 33 0340 SDADRS 034 ¢ TRAPVE= 000034 XINBUF 037164 
ESCAPE 033476 NO 034023 SDRINV 0025 TRIVEC= 000014 x6 = 000020 
ETDEV 032764 NOBUT 034147 SORVS 002536 S 036116 x7 = 000040 
EWCR 002604 NOCARE 052414 SETTUP 005660 TSTCOM 034753 YES 034026 
EXPAND 024670 NODATA bag 38 SPACEC 034012 TSTDEV ey, SAPTHD 001000 
FIXTBL 003 NODVPR 035553 SPACE tHe: TSTMM 006134 SATYC 030266 
LAG 002654 E— 035377 SPACE tH 767 TST1 011244 SATY1 030242 
FNC = 000016 NPR1 002614 SPACE 33773 TST10 ©013404 SATY3 030250 
FNCCNT 002656 NX = 040000 SPACE? 034002 TST11 «= 013612 $ATY4 030260 
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SAUTOB 001334 SDEVCT 001422 SHIOCT 026262 SOMO 024340 STMP6 }§=001374 
SBASE 0014 SDEVM 001470 SICNT 001304 SOVER 027026 $™N == 000040 
DAOR 80135 SDOAGN 023474 SINTAG aE EE SPASS 1416 $TPB 001 336 
SBDDAT 001326 SOTBL pss ere SITEMB 001314 SPASTM 91096 STPFLG 00135 
SBELL 001400 SENDAD 023464 LF 001406 SPOWER 030576 STPS 001350 
$CdOW1 001472 SENDCT Os eeng SLFLG 030505 SPWRON 030510 sees 
DW2 001474 SENDMG 02350 SLPADR 001306 SPWRUP 030526 STRAP2 026350 
SCHARC 024110 SENULL 023500 SLPERR 001310 SQUES 001404 $1 = 00001 
SCKSWR 025136 SENV REE SMADR1 001444 SROCHR 025454 STRPAD 026320 
SCMTAG 001300 SENVA = 00143 SMADR2 001450 SRODEC 025746 $TSTM 0010 
cmM3 = 000000 SEOP 023246 SMADRS 001454 SRDLIN 025574 STSTNM 001 
$cm4 = 000007 SEOPCT 023274 SMADR4 001460 SRDOCT 026124 STTYIN 025702 
SCNTLG 025716 SERFLG 001303 001410 $RDSZ = 000007 STYPD 024356 
SCNTLU 5711 SERMAX 001315 SMAMS1 001442 SRTNAD 023476 STYPDE 024342 
$ 1440 SERROR 027564 SMAMS2 001446 SSCOPE 026352 STYPDS 024352 
SCRLF 001405 SERRPC 001316 3 001452 SSETUP= 000137 $TYPE 0235546 
024656 SERRTB 001536 SMAMS4 001456 $STUP = 177777 STYPEC 023760 
001476 SERRTY 027764 SMBADR 00100 SSVLAD 026772 STYPEX 024112 
1. 001500 SERTTL 001312 SMFLG 030504 $SVPC = 001000 $TYPOC 024140 
$D0W10 001522 SESCAP 1376 SMNEW 025734 $SWR = 163400 STYPON 024154 
$DDW11 001524 SE TABL 1432 SMSGAD 00142 SSWREG 001434 STYPOS 024114 
$ODW12 001526 SETEND 001536 SMSGLG 001436 SSWRMK= 000200 SUNIT 001424 
$0dW15 001530 SFATAL 001412 SMSGTY 10 $SwO8T 027466 SUNITM 001010 
$o00W14 001532 SFFLG 030506 SMSWR = =025723 STESTN 001414 SUSWR 001436 
$ODW15 001534 SFILLC 1356 SMTYP1 001443 K 001346 $VECT1 001462 
ter | 001502 SFILLS 001355 SMTYP2 001447 001344 SVECT2 001464 
$O0W 001504 SGDADR 001320 SMTYP3 453 $TMPO 01360 SXTSTR 026634 
DW4 0015 SGDDAT 001324 SMTYP4 001457 STMP1 01362 $$GET4= 000000 
$00W5 00151 $GET42 023454 $NULL 001354 STMP2 01364 $$SWO8= 000040 
001512 SGTSWR 025236 SNUMS 025124 STMPS 001366 SOFILL 024337 
$00W7 001514 $HD = 000900 SNWTST= 000001 $TMP4 001370 » SAV 036160 
$00W8 001516 SHIBTS 001000 SOCNT 024336 STMPS 001372 -$X = 001000 
001520 
- ABS. 052416 000 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 55704 WORDS ( 218 
DYNAMIC MEMORY: 20346 WORDS ( 78 PAGES) 
ELAPSED TIME: 00:11: 
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